Filter On List

[billandrew]

Good morning

I am using some vba Filter On List code found on this forum (By the Amazing Fluff) i simply change the ranges and added the criteria in cells K1:K3 not yielding the results I need.


This is the code

Sub FilterOnList()


Dim Ary As Variant



Ary = Application.Transpose(Range("K1", Range("K" & Rows.Count).End(xlUp)).Value)

With ActiveSheet

If .AutoFilterMode Then .AutoFilterMode = False

.Range("A1:G1").AutoFilter 4, Ary, xlFilterValues

End With

End Sub

 

[Fluff]

What column are you trying to filter & what are your criteria?

 

[billandrew]

Column B

Criteria = North West & East

 

[Fluff]

I that case try

.Range("A1:G1").AutoFilter [COLOR=#ff0000]2[/COLOR], Ary, xlFilterValues

You were filtering on col D

 

[billandrew]

Thank You - the amazing Fluff

appreciate the help as always....

 

[Fluff]

Glad to help & thanks for the feedback

 

[billandrew]

Actually if I may.

How would I filter on two criteria (2 separate columns)

 

[Fluff]

Something like

.Range("A1:G1").AutoFilter [COLOR=#ff0000]2[/COLOR], Ary, xlFilterValues
.Range("A1:G1").AutoFilter 4, Ary1, xlFilterValues

 

[billandrew]

Works perfect.

Thank You

 

[billandrew]

What I am doing after the filter is copying the data to a new sheet. The question is, is this a faster method than doing a For Loop?