Filter a pivot given a list Macro

[deanle91]

I have a pivot table I would to filter using a list of data in a table using a macro

the table looks like this

table.JPG


and the pivot table has a filter for Region

If the table says keep in column 2 then I want the pivot table to filter the Region to include that region and not include the ones that say remove

[danielexcelvba]

May not be the prettiest solution but I think this should work:

Sub help()
Dim i As Integer
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Region")
    For i = 3 To 8
        If Cells(i, 2).Value = "Keep" Then
        End If
        If Cells(i, 2).Value = "Remove" Then
            .PivotItems(Cells(i, 1).Value).Visible = False
        End If
        Next i
    End With
End Sub

This assumes your table is exactly where you show it in the screenshot, that your PivotTable heading is "Region", and that you are starting with all Regions visible

[deanle91]

Awesome thanks for the quick reply I will check it out