Show Multiple Items Selected in Pivot Filter

Hello all,

I have a pivot table that is filtered based on the cell value of another cell, which contains a dropdown list. I also have the code to select multiple items from this data validation drop down list, and display them separated by commas. What I am looking to do is a multiple selection of the filter on the pivot table when i have multiple selections in the drop down. There is a disconnect between the cell value of the drop down with multiple selections and the pivot table filter itself when I do this.

Can anyone say if this is possible or not? Or offer a different way to go about this?

Thanks a bunch!

Here is my code for the pivot table update currently

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Range("B1:B4")) Is Nothing Then Exit Sub
        Dim pt As PivotTable
        Dim Field As PivotField
        Dim NewCat As String
        Dim ptv As PivotTable
        Dim field2 As PivotField
        Dim newcat2 As String
        Dim ptv2 As PivotTable
        Dim field3 As PivotField
        Dim newcat3 As String
        Dim ptv3 As PivotTable
        Dim field4 As PivotField
        Dim newcat4 As String
        

        Set pt = Worksheets("Pivot_Nov").PivotTables("PivotMPS")
        Set Field = pt.PivotFields("SIOP Model")
        NewCat = Worksheets("Results").Range("B4").Value
        Set ptv = Worksheets("Pivot_Nov").PivotTables("PivotMPS")
        Set field2 = ptv.PivotFields("SIOP Platform")
        newcat2 = Worksheets("Results").Range("B3").Value
        Set ptv2 = Worksheets("Pivot_Nov").PivotTables("PivotMPS")
        Set field3 = ptv2.PivotFields("Group")
        newcat3 = Worksheets("Results").Range("B2").Value
        Set ptv3 = Worksheets("Pivot_Nov").PivotTables("PivotMPS")
        Set field4 = ptv3.PivotFields("A&T Product Line")
        newcat4 = Worksheets("Results").Range("B1").Value

        With pt
            Field.CurrentPage = NewCat
        End With
        With ptv
            field2.CurrentPage = newcat2
        End With
        With ptv2
            field3.CurrentPage = newcat3
        End With
        With ptv3
            field4.CurrentPage = newcat4
        End With
            
    
End Sub

and here is the code I found to select multiple items from a dropdown:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngDV As Range
Dim oldVal As String
Dim newVal As String
If Target.Count > 1 Then GoTo exitHandler

On Error Resume Next
Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation)
On Error GoTo exitHandler

If rngDV Is Nothing Then GoTo exitHandler

If Intersect(Target, rngDV) Is Nothing Then
   
Else
  Application.EnableEvents = False
  newVal = Target.Value
  Application.Undo
  oldVal = Target.Value
  Target.Value = newVal
  If Target.Column = 3 Then
    If oldVal = "" Then
      
      Else
      If newVal = "" Then
      
      Else
      Target.Value = oldVal _
        & ", " & newVal
      End If
    End If
  End If
End If

exitHandler:
  Application.EnableEvents = True
End Sub

The easy way to show all entries in a multiple selection filter is:

- create a CUBESET formula pointing to the datasource and the filter cell of the pivot table (=CUBESET(connection,reference of filter cell,caption)
- with CUBESETCOUNT you can count the number of members in the selection
- with CUBERANKEDMEMBER you can pick an entry from the set
- by creating CUBERANKEDMEMBER formulas with an incrementing RANK value, all entries can be shown.
- when RANK is greater than the number of entries in the selection, NA is shown. This can be solved with IFERROR