Date criteria does not appear to be working

[Godders199]

Hello, i am slowly working through some old code, and while the following does not error, it does not appear to be doing anything.If is part of the criteria needed to copy rows to another worksheet. effectlively it should only be looking for rows equal or less than 20 days from today.

StartDate = DateSerial(Year(Date), Month(Date), Day(Date) - 20)

If Sheets("checkSmart").Range(QSubmissionDate & R).Value >= StartDate Then

As i said the code runs with no error, just does not seem to take this into consideration. I have put >= in""

clearly this element is wrong but can seem to find the magic solution .

 

[RoryA]

You can simplify the first line to just:

StartDate = Date - 20

Your criterion is then anything after 20 days ago.

 

[Godders199]

thanks , had just worked out the solution, have changed to

dateRng =Sheets("instructions").Range("p24")
Or Sheets("checkSmart").Range(QSubmissionDate& R) <= dateRng
and it excludes dates befoe p24