Kód: Vybrat vše
PosledniPlnyRadek = Cells(Rows.Count, "C").End(xlUp).Row ' Ve sloupci CKód: Vybrat vše
Range("C1").Offset(PosledniPlnyRadek).Select
ActiveSheet.PastePřejít na rozšířené vyhledávání
Kód: Vybrat vše
PosledniPlnyRadek = Cells(Rows.Count, "C").End(xlUp).Row ' Ve sloupci CKód: Vybrat vše
Range("C1").Offset(PosledniPlnyRadek).Select
ActiveSheet.Paste
a bude klid...