Linked Pivot Table - Multiple Select

[bdhogan]

Hi all,

Looking for some help here.

I have my VBA code working (thanks to some help from Google!) to link my PivotTables together however for each of the fields I would like to be able to select multiple items in each field. Is this possible?

My code I have produced is attached.

Thanks in advance!

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
On Error Resume Next
Dim ws As Worksheet
Dim wsMain As Worksheet
Dim ptMain As PivotTable
Dim pt As PivotTable
Dim pfMain As PivotField
Dim pi As PivotItem
Dim pf As PivotField

On Error Resume Next
Set wsMain = Sheets("Sales Pivot")
Set ptMain = Target

Application.EnableEvents = False
Application.ScreenUpdating = False

For Each pfMain In ptMain.PageFields
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> wsMain.Name Then
            For Each pt In ws.PivotTables
                pt.RefreshTable
                For Each pf In pt.PageFields
                    If pf.Name = pfMain.Name Then
                        If pfMain.CurrentPage = "(All)" Then
                            pf.CurrentPage = "(All)"
                            Exit For
                        End If
                        For Each pi In pf.PivotItems
                            If pi.Name = pfMain.CurrentPage Then
                                pf.CurrentPage = pi.Name
                                Exit For
                            End If
                        Next pi
                    End If
                Next pf
            Next pt
        End If
    Next ws
Next pfMain
    
Application.EnableEvents = True
Application.ScreenUpdating = True

End Sub

 

[bdhogan]

Bump...

Anyone?