DA LI OVO MOZE DA SE PREPRAVI U SMISLU DA SHEET "BAZA" BUDE U DRUGOM FAJLU,
A DA SHEET SPECIFIKACIJA BUDE U PRVOM FAJLU U KOJEM UNOSIM NEKE PODATKE
KOJE NAKON NPR. SNIMANJA PRVOG FAJLA PREBACUJE TE PODATKE U NOVI RED DRUGOG FAJLA SHEET "BAZA"
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("BAZA").Cells(65535, cl).End(xlUp).Row + 1
' Ovde se moze promeniti gde se kopira
Set Dest = ActiveWorkbook.Sheets("BAZA").Cells(rw, cl) ' Gde je Dest1
Dest.Value = ActiveWorkbook.Sheets("Specifikacija").Range("J1") ' Upis prve vrednosti
Set Dest = ActiveWorkbook.Sheets("BAZA").Cells(rw, cl + 1) ' Gde je Dest2
Dest.Value = ActiveWorkbook.Sheets("Specifikacija").Range("H3") ' Upis druge vrednosti
Set Dest = ActiveWorkbook.Sheets("BAZA").Cells(rw, cl + 2) ' Gde je Dest3
Dest.Value = ActiveWorkbook.Sheets("Specifikacija").Range("A9") ' Upis trece vrednosti
Set Dest = ActiveWorkbook.Sheets("BAZA").Cells(rw, cl + 3) ' Gde je Dest4
Dest.Value = ActiveWorkbook.Sheets("Specifikacija").Range("F6") ' Upis cetvrte vrednosti
Set Dest = ActiveWorkbook.Sheets("BAZA").Cells(rw, cl + 4) ' Gde je Dest5
Dest.Value = ActiveWorkbook.Sheets("Specifikacija").Range("H5") ' Upis pete vrednosti
Set Dest = ActiveWorkbook.Sheets("BAZA").Cells(rw, cl + 5) ' Gde je Dest6
Dest.Value = ActiveWorkbook.Sheets("Specifikacija").Range("J4") ' Upis seste vrednosti
Set Dest = ActiveWorkbook.Sheets("BAZA").Cells(rw, cl + 6) ' Gde je Dest7
Dest.Value = ActiveWorkbook.Sheets("Specifikacija").Range("I28")
spantelic