A search code with three possible results

[mselmy]

I need help with a search code for the attached file

[arnelgp]

check and test

[mselmy]

check and test

Thank you very much. Excellent work, but the second case does not work. All dates in the database are during July 2022. Any date should be in May 2022. The second result should be

If Ok Then
With Sheet2.Range("A18")
.Value = ID
.Offset(, 1) = 0
.Offset(, 2) = "date is old"
End With
End If

[snb]

Well, that's a nice assignment.

[mselmy]

I am waiting

[arnelgp]

stop waiting and start testing