vba autofilter does not contain two values

[Mallesh23]

Hi Team,

Need your help in filtering Below data, Filter out xxxx and yyyy.
It is hardcoded, how to pass Criteria from Range. Thanks.

sub autofilterDynamically
Dim arg1 as variant
arg1 = application.worksheetfunction.Transpose(Mapping.Range("A2:A3"))

'below line worked how to make it dynamic
Range("A1").currentregion.AutoFilter field:=2, Criteria1:= _
        "<>xxxx*", Operator:=xlAnd, Criteria2:="<>yyyy*"
               
'Something like this.        ' it is not working
Range("A1").currentregion.AutoFilter field:=2, Criteria1:= array("<>"& arg1),operator:= xlfiltervalues

end sub

Regards,
mg

 

[Fluff]

You can only use an array to filter on exact matches. As you only have two values use

Range("A1").AutoFilter field:=2, Criteria1:= "<>"&arg1(1), Operator:=xlAnd, Criteria2:="<>"&arg1(2)

 

[Mallesh23]

Hi Fluff!

Thank you so much. it worked ! ?

Regards,
mg

 

[Fluff]

You're welcome & thanks for the feedback