Delete Rows by Speciic Date Set in the Code

[lefty365]

I have a spreadsheet with rows of data sorted by date. I need to delete rows older than a specific date I want to set in the code, not an input box. Let's say 12/07/2018. The dates are currently in Column F. I'd like to set the column in the code as well. It could change. There are hundreds of rows but the rows will grow over time as the report information grows. One day there could be thousands of rows. I've tried several samples codes but haven't found anything to work. Hopefully someone can help. I'd really appreciate it.

Thanks,

Mark

 

[lrobbo314]

Try this.

Sub DelRow()
Application.ScreenUpdating = False
Dim LR As Long: LR = Range("F" & Rows.Count).End(xlUp).Row
Dim dt As Date: dt = #12/7/2018#


For i = LR To 1 Step -1 'change 1 to reflect where your data begins
    If Cells(i, 6).Value < dt Then Rows(i).EntireRow.Delete
Next i
Application.ScreenUpdating = True
End Sub

 

[lefty365]

Thank you very much for the reply. I really appreciate it.

I got the following error message:
Run-time error '1004':
Application-defined or object-defined error

The debug highlighted the following: If Cells(i, 6).Value < dt Then

 

[lefty365]

My apologies. The script is working fine. Thank you very much. This was a huge help. I really appreciate.

Sincerely,

Mark