VBA - Issue passing parameter for filtering

[gio123bg]

Hi All,
I need to select multiple values as filter in a column.

If I use this VBA code for a single selection the code works well.

Dim Parameter As Variant

Parameter = "" & "ARGES SPA"

Selection.AutoFilter
Sheet1.Range("$A$1:$AE$24").AutoFilter Field:=3, Criteria1:=Array( _
Parameter), Operator:=xlFilterValues

If I try to set multiple selections, the filter doesn't filer values. More exactly

Parameter = "" & "ARGES SPA" & """ ,""" & "CEATIM SRL" & ""

Any suggestion well be greatly appreciated.
Thanks in advance for your kind support.
Regards,

Giovanni

 

[steve the fish]

Try using:

Parameter = Array("ARGES SPA", "CEATIM SRL")

and your criteria as Parameter.

 

[gio123bg]

Thanks for the suggestion but I have tried to pass a string but without success.

Sheet1.Range("$A$1:$AE$24").AutoFilter Field:=3, Criteria1:=Parameter, Operator:=xlFilterValues

where

First attempt

par1 = "" & "ARGES SPA SPA" & """ ,""" & "CEATIM SRL" & ""

Parameter = Array(par1)

Second attempt

par2 = """" & par1 & """"
Parameter = Array(par2)

Hope in your help.

Thanks.

Regards,

Giovanni

 

[Norie]

Giovanni

When you use xlFilterValues for the Operator argument and you want to filter for multiple values you need to use an array for the Criteria argument.

If you pass a string then all you'll be filtering for is that string, in this case 'ARGES SPA" ,"CEATIM SRL'.

 

[steve the fish]

Didn't you like my suggestion? Why don't you like to use that because then maybe I can understand why not?

 

[gio123bg]

Hi Steve, sorry. Now I have understood your suggestion. it was correct. With this VBA code now all is ok.

Sheet1.Range("$A$1:$AE$24").AutoFilter Field:=3, Criteria1:=NoDupArray, Operator:=xlFilterValues

where Criteria1 = NoDupArray
and where
Dim NoDupArray() As Variant

Loop row by row r ...
NoDupArray(r) = valuecell

Regards,
Giovanni