Filter By Cell Value via VBA

[seguin85]

Hi All,

I have a master table that I want to sort by 3 different ranges based on another sheet within the same workbook. These 3 ranges are located in range A3:A20, C3:C20, and E3:E20 on a sheet titleed Filer_Lists.

I want Button1 to filter by range A3:A20, Button2 by C3:C20 and Button3 to filter by E3:E20.

The problem I am running into is when there is a value in the range that is not in the master table.

This is what presently have:

With ActiveSheet

    .Range("$A$9:$AIM$1281").AutoFilter Field:=4, Criteria1:=Worksheets("Filter_Lists").Range("A3").Value, Operator:=xlOr, _
                                                  Criteria2:=Worksheets("Filter_Lists").Range("A4").Value, Operator:=xlOr, _
                                                  Criteria3:=Worksheets("Filter_Lists").Range("A5").Value, Operator:=xlOr,
                                                  etc

 

[wigi]

Or try:

With ActiveSheet

    .Range("A9:AIM1281").AutoFilter Field:=4, _
        Criteria1:=Application.Transpose(Sheets("Filer_Lists").Range("A3:A20").Value), _
        Operator:=xlFilterValues

By the way, you have almost 1,000 columns in the range ?

 

[seguin85]

Thanks I will try that, and yes, they are date columns (one column per day) out until February 2019. It is a list to schedule people per day, and a way to track if we plan to be slow or need to hire people.