Code not working the 2nd time in For loop

[rbs123]

I have written a code with a for loop that filters certain data for a particular date. It runs perfectly for the first loop, however, in the second loop, it doesnt filter and instead hides all the data. Can somebody please explain to me why this is happening.

For a = 5 To b

Sheets("lists").Select
e = Cells(a, 44)
Cells(a, 44).Select

k = Sheets("lists").Range("AW3") + 5


If e > d Then
Range("AR5").Select

ElseIf e < d Or e = d Then
Sheets("sample data").Select
ActiveSheet.Range("$B$6:$T$500").AutoFilter Field:=1
ActiveSheet.Range("$B$6:$T$500").AutoFilter Field:=1, Criteria1:="=" & e
Range("I6").Select

This is the section of the code that is not working correctly. 'e' & 'd' are dates.

[Sean Thomas]

have you checked that e is in the same format as the dates in that column?
it would be easier if you supplied your full code or better still an example workbook.

[rbs123]

I changed my code to -

ActiveSheet.Range("$B$6:$T$500").AutoFilter Field:=1, Criteria1:=">=" & e - 1, Operator:=xlAnd, Criteria2:="<=" & e + 1, Operator:=xlFilterValues

Its working fine now. Still dont know why it wasnt earlier. The format was the same. But its ok. I'm sorted for now. Thanks!