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]

It depends on your data, but usually - Yes

 

[billandrew]

Great

Thank You

 

[Fluff]

Your welcome