How to pass a String into a Pivot Table Filter Ex:- Page Filter, Column Filter and Row Filter using VBA

[all4excel]

Dear Experts,

I need to pass a string of text values separated by a comma separator to a Page Filter, Column Filter and Row Filter using VBA as I am not an expert in this type of coding.
I have a cell which contains some text in the below format
Ex: PageFilter1 = America,Africa,Bangladesh,India ( 4 Names to be shown ) in the Pivot Table

How do I get the Page Filter display only the 4 Countries shown above.

Warm Regards

 

[all4excel]

Please someone help me I am at my wits end..

Dim ShowMe As Boolean
str = InfoSheet.Cells(Count, 34).Value
selvalstr() = Split(str, ",")



PTable.ManualUpdate = True
'Set PItem = PTable.PivotFields(PIName).PivotItems

For Each PItem In PTable.PivotFields(PI).PivotItems

MsgBox PItem.Caption
For z = LBound(selvalstr) To UBound(selvalstr)

ShowMe = (PItem.Name = Trim(selvalstr(z)))
MsgBox PItem.Caption
If ShowMe Then

PItem.Visible = True
Else
'Below is the line that gets the error
PItem.Visible = False
End If

Next z
Next PItem

 Dim ShowMe As Boolean
str = InfoSheet.Cells(Count, 34).Value
selvalstr() = Split(str, ",")



PTable.ManualUpdate = True
'Set PItem = PTable.PivotFields(PIName).PivotItems
    
             For Each PItem In PTable.PivotFields(PI).PivotItems
            
             MsgBox PItem.Caption
                    For z = LBound(selvalstr) To UBound(selvalstr)
                    
                        ShowMe = (PItem.Name = Trim(selvalstr(z)))
                        MsgBox PItem.Caption
                        If ShowMe Then
                            
                            PItem.Visible = True
                        Else
            'Below is the line that gets the error
                            PItem.Visible = False
                        End If

                    Next z
             Next PItem

 

[all4excel]

Bump a Thread