Macro to delete rows prior to specific date

[TheCman81]

Running Excel 2007.

Hi Guys,

I need a macro to delete all rows before the 16/Jan/2012? Date is in Column G and already sorted in desending order.

Hope someone can help!

Thanks

Colin

 

[Firefly2012]

Hi Colin & Welcome to the Board!

perhaps:

Sub Del_Rows()
With Activesheet
  .AutofilterMode = False
  .Range("A1:G1").AutoFilter
  .Range("A1:G1").Autofilter Field:=7,Criteria1:="<" & CLng(#16 Jan 2012#)
  .Autofilter.Range.Offset(1).EntireRow.Delete
  .AutofilterMode = False
End With
End Sub

 

[Matt Rogers]

Sub DelDate()
Dim i
For i = Cells(Rows.Count, 7).End(xlUp).Row To 1 Step -1
On Error Resume Next
If Cells(i, 7).Value < "16.1.2012" Then
Rows(i).Delete
End If
Next
End Sub

 

[TheCman81]

Thanks guys, both do work but Firefly's is much quicker, I have over 5000 lines and your Loop Matt takes quite long.

Thanks again for your help

 

[Matt Rogers]

Thanx for feedback.

I've more time as firefly.