PK sa pýta:
Mám pracovný list, do ktorého zadávam niektoré hodnoty. Po kliknutí na tlačidlo makra chcem, aby sa hodnoty alebo ich vypočítané výsledky pripojili k inému hárku alebo súboru.
Dobrá otázka. Povedzme, že hodnoty sú v bunkách C10 a E12 tabuľky 1 a chcete, aby boli pripojené k ďalšiemu riadku tabuľky 2.
Skutočným trikom je kód na vyhľadanie nasledujúceho riadku v Hárku2. Počnúc posledným riadkom v Hárku 2 (A65536) a následným použitím .End (xlup) nájdete posledný riadok s údajmi v stĺpci A. Pridaním 1 do tohto riadku vás nasmerujete na ďalší riadok s údajmi v Hárku2. Použite 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
