Multiple criteria filtering

[tiredofit]

Column A contains these values:

Name
a
b
c
d
e

I want to filter some values, so use this:

Range("A1).AutoFilter Field:=1, Criteria1:=Array("a", "b"), Operator:=xlFilterValues

which indeed does return the values a and b only.

Question 1.

Why does this return no values?

Dim MyString As String

MyString = "a""" & ", " & """b"

Range("A1).AutoFilter Field:=1, Criteria1:=Array(MyString), Operator:=xlFilterValues

​

​

Question 2.

In reality, I want to filter on a number of criteria, eg: "a", "b", "c", ..... , "z", "aa", etc. so need to create an array (or possibly some other method).

Thanks

 

[Fluff]

Try either of these

Dim ary As Variant

ary = Array("a", "b")
Range("A1").AutoFilter Field:=1, Criteria1:=ary, Operator:=xlFilterValues


Dim MyString As String

MyString = "a,b"
Range("A1").AutoFilter Field:=1, Criteria1:=Array(Split(MyString, ",")), Operator:=xlFilterValues

 

[tiredofit]

Thanks

 

[Fluff]

You're welcome