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

 

[Umma123]

Loop through the LDCol range to find the rows where "LD" appears.
Build new ranges that exclude the rows containing "LD" by dynamically adjusting the size of each range.
Redefine your ranges with the rows where "LD" is not present.

 

[MARK858]

@Umma123 are you sure that you have posted to the correct thread?