Pro sloupec B
Radek=cells(65000,2).end(xlup).row + 1
Pro sloupec C
Radek=cells(65000,3).end(xlup).row + 1
atdcitovat
Radek=cells(65000,2).end(xlup).row + 1
Pro sloupec C
Radek=cells(65000,3).end(xlup).row + 1
atdcitovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Prví prázdný řádek
MS Excel
Téma: Prví prázdný řádek 
Zaslal/a rotri 21.8.2015 8:36
Zdravím,
v příloze mám excel, kde je tabulka. Začal jsem psát makro, které bude dělat to, že označí řádky a zkopíruje, najde poslední volný a tam to vloží, ale nevím jak poslední volný najít. Vždy to hledá jen pro určitý sloupec, ale já nemám třeba A1 vyplněno.
Díky
Příloha: 
26322_zkouska-denni.zip (166kB, staženo 60x)
26322_zkouska-denni.zip (166kB, staženo 60x)(21.8.2015 21:05)#026332
lastRow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Rowcitovat
Mám dvě poznámky k tématu:
1. Konstanta 65000 je hrozný pozůstatek z Excelu XP (přesněji 65535), kdy to znamenalo max. počet řádků na listu. Ribbonový list jich umí víc než milion, takže 65 tisíc je velmi nedostatečné číslo. Dobře je UsedRange.Rows.Count od Opičáka, který ale určuje LastUsedRow, nikoliv FirstFreeRow!
2. První volný řádek má tedy o jedničku vyšší číslo než poslední obsazený. Existuje ale ještě jiný typ volného řádku, pokud mohou v obsazení řádků vznikat díry. Najít první díru je jiná úloha!citovat
1. Konstanta 65000 je hrozný pozůstatek z Excelu XP (přesněji 65535), kdy to znamenalo max. počet řádků na listu. Ribbonový list jich umí víc než milion, takže 65 tisíc je velmi nedostatečné číslo. Dobře je UsedRange.Rows.Count od Opičáka, který ale určuje LastUsedRow, nikoliv FirstFreeRow!
2. První volný řádek má tedy o jedničku vyšší číslo než poslední obsazený. Existuje ale ještě jiný typ volného řádku, pokud mohou v obsazení řádků vznikat díry. Najít první díru je jiná úloha!citovat
Tento riadok to skopíruje na koniec.
Range("9:35").Copy Destination:=Range(Cells(Rows.Count, 2).End(xlUp).Row + 1 & ":" & Cells(Rows.Count, 2).End(xlUp).Row + 1 + 27)citovat
Range("9:35").Copy Destination:=Range(Cells(Rows.Count, 2).End(xlUp).Row + 1 & ":" & Cells(Rows.Count, 2).End(xlUp).Row + 1 + 27)citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\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.
Aktivní diskuse
Čas od do
jarek1111 • 18.4. 13:46
Čas od do
lubo • 18.4. 11:13
Čas od do
jarek1111 • 18.4. 8:32
Čas od do
jarek1111 • 18.4. 8:31
Makro smyčka
MilanKop • 18.4. 7:18
Makro smyčka
elninoslov • 18.4. 0:18
Makro smyčka
MilanKop • 17.4. 21:33
RSS nejnovější články