VBA to filter a pivot table

[Pranesh]

Hi All,

I have a list of names available in Cell D1. At times names will be starting with <> and at few scenarios before names there wont be "<>".

If i have this <> symbol at the starting of the name which means i need to exclude the names from a pivot item in a pivot table.

If i have only names then it means i need to include only those name from a pivot item in a pivot table

example for excluding names - <>John, Dave, Smith(will be available in Cell D1)

example for including names - John, Dave, Smith(will be available in cell D1)

Currently im doing this manually and i would like to automat it. Can someone help me with the code.

 

[Pranesh]

Hi All,

I have managed to record a code and modified it. This will work for one item(Smith) in cell I2, but if i have 2 items in cell I2 (Smith, Dave) it wont work.


Can someone help me to modify this code to convert cell I2 as array and all names in cell I2 should be filtered in Pivot.

Range("H2").Select
    Findstring = Selection.Value
    Range("I2").Select
    Findstring1 = Selection.Value
    
    ActiveSheet.PivotTables("PivotTable1").PivotFields("track").ClearAllFilters
    If Findstring = "<>" Then
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("track")
        .PivotItems(Findstring1).Visible = False
    End With
    Else
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("track")
        .PivotItems(Findstring1).Visible = True
    End With
    End If

 

[Pranesh]

There us no reply from anyone. If this cannot be done, please help me to close this thread.