[ jaskojsako @ 06.08.2014. 20:21 ] @
Poz 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] |