Change >= (later than day of or day of) to day after or day of

[VBAProIWish]

Hello All,

Can I change the code in red and bold below to say this instead? (going to use laymen's terms)...

If Cells(i,19) "day after" OR "=" enddate Then
 
Quotes were used only for illustration purposes

Sub aaa_test_macro_01()
   Dim enddate As Date
   Dim i As Long
 
    enddate = Format(Sheets("Date Shipped").Range("z3"), "mm/dd/yy")
 
 
 
[B][SIZE=4][COLOR=red]    If Cells(i, 19) >= enddate Then[/COLOR][/SIZE][/B]
 
 
 
            Cells(i, 3).EntireRow.Delete
        End If
    Next i
 
End Sub

I really hope this can be done, it'll be a whole lot of work if I can't.


Thanks to anyone that can help me one this one

 

[njimack]

Maybe this:

If Cells(i, 19) = enddate OR Cells(i, 19) = enddate + 1 Then

 

[rmscho02]

Shouldn't be a problem. And as long as z3 is a date then you don't need to worry about formatting it in a particular way. Simply:

If Cells(i, 19).Value >= enddate then


Also, if you're deleting rows then you'll run into a problem with a basic For...Next loop. I.e. if i = 4 and you delete the row then do Next i, you won't ever evaluate what was in row 5 before the delete.

lastRow = Range('something').End(xlUp).Row
i = 1
For r = 1 To lastRow
If Cells(i,column).Value >= enddate Then
"deleterow"
Else
i = i + 1
End If
Next r

 

[VBAProIWish]

Worked perfectly!

Thanks much!