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 61x)
26322_zkouska-denni.zip (166kB, staženo 61x)(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
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.
RSS nejnovější články