Příspěvky uživatele


< návrat zpět

Kopírování polí (25.1.2016 17:13)

:D Díky

Kopírování polí (25.1.2016 16:55)

Pochopil jste mě skvěle 9 Funguje!
Mockrát Vám děkuji!!
Kdybych mohl být tak smělý a pokud byste si našel chvilku pro stručné vysvětlení kódu?
Ještě jednou díky. :)

Kopírování polí (25.1.2016 15:22)

Dobrý den,
nedaří se mi operace: z listu 1 pomocí VBA vykopírovat textové hodnoty z buněk G5 až dokud není prázdná buňka(třeba do G50) do druhého listu 2, první hodnota v bunce A1 další do B1 pak C1 pak A2,B2,C2,A3,B3,C3... v podstatě se to bude kopírovat pouze do prvních 3 sloupců.
Věděl by někdo jak na to ? :/
Děkuji


Sub Copy()

Dim i As Integer
Dim j As Integer

Dim q As Range, r As Long, s As Range

For j = 1 To 10
For i = 1 To 3

With Worksheets("Data")
For r = 5 To .Cells(.Rows.Count, 1).End(xlUp).Row Step 1
Set q = .Range(.Cells(r, 7), .Cells(r, .Cells(r, .Columns.Count).End(xlToLeft).Column))
With Worksheets("Copy")
Set s = .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1)
End With
q.Copy s

Cells(j, i).Value = q

Next r
End With
Next i
Next j

End Sub

Porovnávání datumů (15.6.2015 22:09)

Super, MOC Vám všem děkuji, ja se s tím trápil a nemohl na to dojít :(

Porovnávání datumů (13.6.2015 10:37)

Dobrý den,
potřeboval bych poradit s jedním zapeklitým úkolem.. Mám tyto dva sloupce A a B, do sloupce C bych potřeboval podmínku, která by porovnávala datumy ze sloupce B. Nedaří se mi přijít na komplexní řešení porovnání datumů, vždy potřebuji porovnat hodnotu 1. datumu (která má vyplněnou buňku i nalevo ve sloupci A) s hodnotou datumu pod ní. Jinými slovy.. porovnávám 12.3.2021 s hodnoutou pod ní 12.5.2020, pokud je spodní datum stejné nebo nižší tak je to OK, v opačnem připadě to neni OK. Potom se porovna další datum v řadě tedy 12.3.2021 opět s prvním datumem 12.3.2021.. Takto to půjde až do doby dokud nebude vyplněna další hodnota ve sloupci A. a od této hodnoty bude fungovat zase stejné porovnávání datumů s rozdílem že se bude porovnávat 16.11.2020 s hodnotami pod ním. atd.. Uměl by mi někdo poradit? 7

16092 12.3.2021
12.5.2020
12.3.2021
12.3.2021
12.3.2021
12.3.2021
16093 16.11.2020
16.11.2020
16.5.2021
16.11.2020


Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje