Macro for Filtering by Date/Time

[FrenchCelt]

I'd like to add some code to an existing macro I have that will autofilter every row that contains the following criteria: today's date and after 7:00 a.m. The date/time info is populated in Column D. I don't need those rows so I will add code to delete once it's filtered, but I don't know how to make it so that it always knows the current date when I run the macro.

Any help would be appreciated.

 

[FormR]

Hi, you could try something like this:

Columns("D:D").AutoFilter Field:=1, Criteria1:=">=" & Date + TimeSerial(7, 0, 0), _
    Operator:=xlAnd, Criteria2:="<=" & Date + TimeSerial(23, 59, 59)

 

[FrenchCelt]

Seems to have done the trick. Thank you!