Příspěvky uživatele
< návrat zpět
:D Díky
Pochopil jste mě skvěle 
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. :)
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
Super, MOC Vám všem děkuji, ja se s tím trápil a nemohl na to dojít :(
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? 
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
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články