VBA AutoFilter

[beginvbaanalyst]

Hi Everyone,

I'm currently trying to find a way to auto filter my A column with data from my O column. The data will always change and will never be the same.

I already have it auto filter from another tab (Column2) but I just want to find a more efficient way to check my sourced vendor column.
Which is where the autofilter from my O column will come in to make it easier when finding my sourced vendor.
I just don't want to have to click on each article one at a time when filter, that's not efficient at all.
How would I do this?

 

[mrshl9898]

Try this:

Sub PivotList()

Dim PT As PivotTable
Dim PTItem As PivotItem
Dim List As String
Dim rownum As Long

rownum = 2
Do Until Cells(rownum, 15) = ""
List = List & " " & Cells(rownum, 15)
rownum = rownum + 1
Loop

Set PT = ActiveSheet.PivotTables("PivotTable1") ''update as needed

For Each PTItem In PT.PivotFields("Article").PivotItems
    If InStr(List, PTItem) > 0 Then
    Debug.Print InStr(List, PTItm)
        PTItem.Visible = True
    Else
        PTItem.Visible = False
    End If
Next PTItm


End Sub