VBA Clear Contents of Cells Less than Today's Date

[mdeni0528]

Hi!

I'm hoping you can help me with a VBA formula that clears the contents of dates in cells based on an end date that is less than today's date. My worksheet has a start date and an end date for multiple segments and these dates are associated with one another. The clear contents command needs to be triggered by the end date when it's less than today's date. The end date needs to be cleared from the worksheet as well as the start date associated with it. I have multiple columns of start dates and end dates, so I need to apply this command to multiple columns. I need a formula similar to the one below but for entire columns since this only applies to one cell and is not written correctly. My start and end dates that should be deleted are highlighted in red using a conditional format. Please help! I don't know VBA language at all! Thank you!

If Date > Range("C9").Value then Range("C9").ClearContents

If Range("B9")> isnotblank and Range("C9")Then Range("B9").ClearContents

 

[DanteAmor]

Sorry, that didn't work. It still deleted dates on the 2nd worksheet.

You can put an image of those dates.
Do they meet the condition?

 

[mdeni0528]

This worksheet below pulls dates from the first worksheet. The dates still exist on the first worksheet but the VBA runs when I open the file showing this worksheet and deletes dates which still exist on the first spreadsheet in the worksheet. Does that make sense?

 

[mdeni0528]

Also, the dates below are just pulled in using a vlookup from the first worksheet.

 

[DanteAmor]

In your images I do not see the rows and columns of excel.

 

[mdeni0528]

In your images I do not see the rows and columns of excel.

Sorry about that...

 

[DanteAmor]

I am afraid that the macro is not ready for any new designs that you generate.

 

[mdeni0528]

So, there is no way for the macro to update only sheet1?

 

[DanteAmor]

  [B]For Each sh In Sheets[/B]
    sh.Unprotect "***"
    For i = 9 To sh.Range("A" & Rows.Count).End(3).Row
      For j = 3 To sh.Cells(i, Columns.Count).End(1).Column Step 2
        [B]If Date > sh.Cells(i, j).Value Then[/B]

The macro can work for all the sheets of the book, it can be 1 or 100 sheets; and that they also comply with the condition of the date.
But you must show the design of each sheet. If they are the same there is no problem, but if you change the design, then the macro must be adapted.