PK vpraša:
Imam delovni list, kamor vnesem nekaj vrednosti. Ko kliknem gumb makra, želim, da so vrednosti ali izračunani rezultati dodani drugemu listu ali datoteki.
Dobro vprašanje. Recimo, da so vrednosti v celicah C10 in E12 lista1 in želite, da so dodane v naslednjo vrstico lista2.
Pravi trik tukaj je koda za iskanje naslednje vrstice na Sheet2. Začenši z zadnjo vrstico v Sheet2 (A65536) in nato z uporabo .End (xlup) poišče zadnjo vrstico s podatki v stolpcu A. Če v to vrstico dodate 1, boste preusmerjeni v naslednjo vrstico za podatke na Sheet2. Uporabite to kodo:
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
