Pivot table - linking multiple tables filter options to a single drop down

Hi,

Debra has posted a VBA solution ...
http://www.contextures.com/excelfiles.html
Excel Samples - PivotTables PT0021

HTH

Hi Thanks

I have already tried this link but can't sucessfully change the code to manage the pivot tables where they all exist on the same worksheet.

Apologies but my vba ability is miserable - could someone show me how to adjust it. The code from the contextures website FT00021 attachment is shown below

many thanks

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

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
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

End Sub

I've done something very similar. If you're still after help, I might be able to.

Did any of y'all ever find a way around the issue whereby when one enables “Select Multiple Items” in a 'master' pagefield and picks a few criteria, the ‘slave’ pivots do not follow? I adapted the PT0021 code for my 2 sheet workbook and added a button (as in following code). Since I’m bumbling along here, borrowing code as I can, I’ve hit a wall on how to fix that. If you could give me a push in right direction, I’d appreciate it. I also posted on the Microsoft Development Network and GNT sites as a question, and once I’ve fixed, I’ll put that up too (of course giving Debra/Contextures/et al the original credit)! I’m hoping you have already addressed this and it won’t inconvenience you further to pass on to me. Best Regards, David

Private Sub CommandButton1_Click()
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 ws = Sheets("Pivots")
Set ptMain = ActiveSheet.PivotTables("PivotTable4")
Application.EnableEvents = False
Application.ScreenUpdating = False
For Each pfMain In ptMain.PageFields
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 pfMain

Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub