PK pita:
Imam radni list u koji unosim neke vrijednosti. Klikom na gumb makronaredbe želim da se vrijednosti ili izračunati rezultati dodaju na drugi list ili datoteku.
Dobro pitanje. Recimo da su vrijednosti u ćelijama C10 i E12 lista 1 i želite da se dodaju u sljedeći redak lista 2.
Pravi trik ovdje je kod za pronalaženje sljedećeg retka na Sheet2. Počevši od zadnjeg retka u Sheet2 (A65536), a zatim pomoću .End (xlup) pronaći ćete zadnji redak s podacima u stupcu A. Dodavanjem 1 u taj redak usmjerit ćete se na sljedeći redak za podatke na Sheet2. Koristite ovaj kod:
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
