Marco to delete rows with a future date

[markman235]

Hi everyone,

I am to write a macro for Excel 365 that will look at a date and delete the row if it is greater than today. I found one that was from a few years ago online, but it doesn't seem to work.

The date is in column F

Sub delfutureDays()
Dim cl As Long
For cl = Range("F2").End(xlDown).Row To 2 Step -1
If Cells(cl, "F") > Date Then Rows(cl).EntireRow.Delete
Next
End Sub

Any thoughts?

Mark

 

[MARK858]

Then they are text (the aligning to the left is also a giveaway)

Try carrying out the steps below

• Select the range in the column
• Data tab
• Text to Columns
• Delimited
• Next
• Make sure all the checkboxes are cleared
• Next
• Select Date checkbox
• Select the YMD option (yes YMD as you want the source format)
• Click Finish
• Format the cells as desired

 

[markman235]

Then they are text (the aligning to the left is also a giveaway)

Try carrying out the steps below

• Select the range in the column
• Data tab
• Text to Columns
• Delimited
• Next
• Make sure all the checkboxes are cleared
• Next
• Select Date checkbox
• Select the YMD option (yes YMD as you want the source format)
• Click Finish
• Format the cells as desired

Perfect! Thank you very much for all your help!!

 

[MARK858]

You're welcome