PK se ptá:
Mám list, kde zadávám některé hodnoty. Po kliknutí na tlačítko makra chci, aby byly hodnoty nebo jeho vypočítané výsledky připojeny k jinému listu nebo souboru.
Dobrá otázka. Řekněme, že hodnoty jsou v buňkách C10 a E12 v Listu1 a chcete, aby byly připojeny k dalšímu řádku v Listu2.
Skutečným trikem je kód k vyhledání dalšího řádku v Listu2. Počínaje posledním řádkem v Listu2 (A65536) a následným použitím .End (xlup) najdete poslední řádek s daty ve sloupci A. Přidáním 1 do tohoto řádku budete přesměrováni na další řádek pro data v Listu2. Použijte tento kód:
Sub CopyThem() NextRow = Worksheets("Sheet2").Range("A65536").End(xlUp).Row + 1 Worksheets("Sheet2").Cells(NextRow, 1).Resize(1, 2).Value = Array( _ Worksheets("Sheet1").Range("C10").value, _ Worksheets("Sheet1").Range("E12").value) End Sub
