Trying to Filter for more the one it

[itsgrady]

See bold italics part of the code. I am trying to filter the table for more than item. Seems like it would be easy but I am not having any luck. There is one column that I am trying to do the filter for more than one item.


Sub DMwill()

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("VPI-All-WhsRpt")

Application.ScreenUpdating = False
If ws.AutoFilterMode Then
ws.AutoFilterMode = False
End If

Sheets("VPI-All-WhsRpt").Activate

ws.ListObjects("VPI_All_WhsRpt").AutoFilter.ShowAllData

ws.ListObjects("VPI_All_WhsRpt").Range.Select

ws.ListObjects("VPI_All_WhsRpt").Range.AutoFilter Field:=11, Criteria1:=("204", "201", "105”)

Set rng = ws.Range("A10")
rng.Select
rng.Application.Goto rng, True
Set rng = Nothing
Set ws = Nothing

Application.ScreenUpdating = True

End Sub

 

[johnny51981]

Should probably looks something more like this

ws.ListObjects("VPI_All_WhsRpt").Range.AutoFilter Field:=11, Criteria1:=("204"), Operator:=xlOr, Criteria2:= ("201"), Operator:=xlOr, Criteria3:=("105”)

 

[itsgrady]

See bold italics part of the code. I am trying to filter the table for more than item. Seems like it would be easy but I am not having any luck. There is one column that I am trying to do the filter for more than one item.


Sub DMwill()

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("VPI-All-WhsRpt")

Application.ScreenUpdating = False
If ws.AutoFilterMode Then
ws.AutoFilterMode = False
End If

Sheets("VPI-All-WhsRpt").Activate

ws.ListObjects("VPI_All_WhsRpt").AutoFilter.ShowAllData

ws.ListObjects("VPI_All_WhsRpt").Range.Select

ws.ListObjects("VPI_All_WhsRpt").Range.AutoFilter Field:=11, Criteria1:=("204", "201", "105”)

Set rng = ws.Range("A10")
rng.Select
rng.Application.Goto rng, True
Set rng = Nothing
Set ws = Nothing

Application.ScreenUpdating = True

End Sub

Thanks for the reply.
I got a compile error - name argument not found. This was highlighted for the compile error: Criteria3:=

Can you help? I will have some that I will set up later with 5 or more filters.

 

[johnny51981]

Re-type that final " at the end of 105.

 

[Fluff]

Try it like

ws.ListObjects("VPI_All_WhsRpt").Range.AutoFilter Field:=11, Criteria1:=Array("204", "201", "105"), xlfiltervalues

 

[itsgrady]

Try it like

ws.ListObjects("VPI_All_WhsRpt").Range.AutoFilter Field:=11, Criteria1:=Array("204", "201", "105"), xlfiltervalues

Hello again.
It gave a compile error: Syntax Error

 

[Fluff]

Ok, try

ws.ListObjects("VPI_All_WhsRpt").Range.AutoFilter 11, Array("204", "201", "105"), xlFilterValues

 

[itsgrady]

Ok, try

ws.ListObjects("VPI_All_WhsRpt").Range.AutoFilter 11, Array("204", "201", "105"),xlFilterValues

Thank you so much. I added Operator:= in front of xlFilterValues and it worked. You always provide great help. Thanks.

 

[Fluff]

Glad we could help & thanks for the feedback.