How use dates as criteria in VBA

[JayhawkRacer]

I apologize if this is simple or has been asked. I couldn't find the answer from an extensive search here and other communities.

I'm attempting to use VBA to edit column 12 in each row that meets the following criteria:

Column 16 is a specific text string ("name")
Column 11 is a specific text string ("RESCHED IN")
Column 12 is tomorrow, today, or in the past (anything after tomorrow should remain unedited)

Here's the code I'm trying so far, but obviously the "date+1" is a terrible idea and doesn't work. Any ideas?

    LastRow = Range("C65536").End(xlUp).Row
    For c = LastRow To 2 Step -1
        If Cells(c, 16) = "name" And Cells(c, 11) = "RESCHED IN" And (Cells(c, 12) < "Date" Or Cells(c, 12) = "Date" Or Cells(c, 12) = "Date+1") Then
            Cells(c, 12).FormulaR1C1 = "=Today()+2"
        End If
    Next c

The

Cells(c, 12).FormulaR1C1 = "=Today()+2"

part works, but it completely ignores any of my date criteria and just makes column 12 Today+2 days for anything that meets the "name" and "RESCHED IN" criteria.

 

[Joe4]

Anything that you put between quotes is treated as literal text. So your formula is not checking the dates, it is actually referring to the string "Date".
Replace all this part:

(Cells(c, 12) < "Date" Or Cells(c, 12) = "Date" Or Cells(c, 12) = "Date+1")

with just this:

Cells(c,12) < (Date + 1)

 

[JayhawkRacer]

Anything that you put between quotes is treated as literal text. So your formula is not checking the dates, it is actually referring to the string "Date".
Replace all this part:

(Cells(c, 12) < "Date" Or Cells(c, 12) = "Date" Or Cells(c, 12) = "Date+1")

with just this:

Cells(c,12) < (Date + 1)

This worked perfectly! Thank you so much!

 

[Joe4]

You are welcome!
Glad to help!