delete if
Try
For i = Cells(65000, coldep).End(xlUp).Row to 2 step -1
flow23 wrote:
I need help with this macro
IF rows are hidden it work fine, but if its rows delete then it skips some
records.
what i want is the loop to delete from bottom up , which should resolve the
issue or any suggestions.
Many thanks
Sub deleterecd() ' delete records that are more than 12 months old.
coldep = 23
For i = 2 To Cells(65000, coldep).End(xlUp).Row
If Cells(i, coldep) < DateSerial(Year(Date), Month(Date) - 12, Day(Date)) Then
Rows(i).Delete
End If
Next i
End Sub
--
Dave Peterson
|