Autofilter between two times: Easier than it sounds

[Kentetsu]

I'm fairly certain that this has to be a formatting issue of some kind.

When stepping through the code, it correctly identifies "TimeToSearch1" and "TimeToSearch2" as the times to filter for.

With Worksheets("PII Yields")
        If .FilterMode Then .Range("A2:F2").AutoFilter
        .Range("A2:F2").AutoFilter Field:=1, _
                    Criteria1:=">=" & TimeToSearch1, _
                    Operator:=xlAnd, _
                    Criteria2:="<=" & TimeToSearch2
End With

I have formatted the Target Times to match the formatting on the spreadsheet I'm trying to manipulate but it doesn't seem to make any difference. The Target Times show as time only, while the spreadsheet shows a date/time combination. So, I'm guessing that I need to somehow change the formatting at one end or the other so that they finally match. Just not sure how to get there.

There are a couple of steps before this filter process which may have something to do with the issue:

1. Filter spreadsheet by selected date.
2. Copy results and paste to new sheet as Values.
3. Format Column A (Dates) to .Range("A:A").NumberFormat = "HH:MM;@"

Thanks for your time...

 

[Kentetsu]

Thanks again. I think you've given me enough to get it working. Unfortunately, just prior to calling it a day last night Excel crashed on me and this morning I've come to find that the "recovery" option must have failed. So, I'm starting from scratch once again. Oh well, practice makes perfect I guess.

 

[Kentetsu]

Okay, I tried the following and even though the formatting looks correct it returns everything rather than filter it.

w.Cells.AutoFilter Field:=1, Criteria1:=">=" & DateToSearch & " " & Time1, _
Operator:=xlOr, Criteria2:="<=" & DateToSearch & " " & Time2

 

[Kentetsu]

The problem is that I turned the info into a table, so now has to be handled a bit differently.

This works for sorting the time span (already sorted for date prior to turning it into a table):

ActiveSheet.ListObjects("TableLoaded").Range.AutoFilter Field:=7, Criteria1 _
                :=">=" & Time1, Operator:=xlAnd, Criteria2:="<=" & Time2

Thanks for the assistance...