Citat:
MightyMighty
nisu poslagana u jednu kolonu ili red, recimo da formular podseca na uplatnicu) u jedan red na drugom sheet-u.
evo jedan primjer ( razrađen Pecin source-code ) sa gumbom UNOS
Code:
Sub Prenesi()
' Kopiranje sadrzaja celija sa uplatnice obojanih zuto
' u prvi prazan red
' na drugom listu - kronologija
Dim rw As Long
Dim cl As Integer
Dim Dest As Range
'Postavlja prvu kolonu za upis
cl = 1 ' A kolona
'Nalazi prvi prazni red u koloni A
rw = ActiveWorkbook.Sheets("kronologija").Cells(65535, cl).End(xlUp).Row + 1
' Ovde se moze promeniti gde se kopira
Set Dest = ActiveWorkbook.Sheets("kronologija").Cells(rw, cl) ' Gde je Dest1
Dest.Value = ActiveWorkbook.Sheets("Uplatnica").Range("A2") ' Upis prve vrednosti
Set Dest = ActiveWorkbook.Sheets("kronologija").Cells(rw, cl + 1) ' Gde je Dest2
Dest.Value = ActiveWorkbook.Sheets("Uplatnica").Range("A5") ' Upis druge vrednosti
Set Dest = ActiveWorkbook.Sheets("kronologija").Cells(rw, cl + 2) ' Gde je Dest3
Dest.Value = ActiveWorkbook.Sheets("Uplatnica").Range("A10") ' Upis trece vrednosti
Set Dest = ActiveWorkbook.Sheets("kronologija").Cells(rw, cl + 3) ' Gde je Dest4
Dest.Value = ActiveWorkbook.Sheets("Uplatnica").Range("C1") ' Upis cetvrte vrednosti
Set Dest = ActiveWorkbook.Sheets("kronologija").Cells(rw, cl + 4) ' Gde je Dest5
Dest.Value = ActiveWorkbook.Sheets("Uplatnica").Range("B6") ' Upis pete vrednosti
Set Dest = ActiveWorkbook.Sheets("kronologija").Cells(rw, cl + 5) ' Gde je Dest6
Dest.Value = ActiveWorkbook.Sheets("Uplatnica").Range("C6") ' Upis seste vrednosti
Set Dest = ActiveWorkbook.Sheets("kronologija").Cells(rw, cl + 6) ' Gde je Dest7
Dest.Value = ActiveWorkbook.Sheets("Uplatnica").Range("B7") ' Upis sedme vrednosti
End Sub