ovaj kod mi odrađuje super kada unesem jedan datum za pretragu e sad bi mi trebalo
preurediti kod da mi odrađuje pretragu i kopiranje između dva datuma
ako ima voljni unaprijed hvala
Application.ScreenUpdating = False
Dim rangeToSearch As Range
Set rangeToSearch = Sheets(1).Range("C2:C" & Sheets(1).Range("C" & Rows.Count).End(xlUp).Row)
Dim searchAmount As Date
searchAmount = InputBox("Type in the amount to search for:")
Dim cell As Date
For Each cell In rangeToSearch
If cell = CLng(searchAmount) Then
Sheets(1).Rows(cell.Row & ":" & cell.Row).Copy
Sheets(2).Rows( _
Sheets(2).Range("A" & Rows.Count).End(xlUp).Row + 1 & _
":" & _
Sheets(2).Range("A" & Rows.Count).End(xlUp).Row + 1 _
).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End If
Next
Application.ScreenUpdating = True
[Ovu poruku je menjao jaskojsako dana 06.08.2014. u 23:11 GMT+1]