VBA - Copy Pivot Filters From Specified Pivot Table to all Other Pivot Tables on Worksheet with Matching Filter Titles

[wakerider017]

Exactly what the thread title says.

I want to copy the pivot filters from PivotTable1 to all other pivot tables on the sheet with matching filter titles.

I want this to occur after the click of a button.


I found this code on Contextures from Jeff Weir, but it is not working for me. Any ideas?

[SIZE=2][FONT=arial][COLOR=#1A1A1A]Sub SetToAll()[/COLOR]
[COLOR=#1A1A1A]Dim pt As PivotTable[/COLOR]
[COLOR=#1A1A1A]Dim pf As PivotField[/COLOR]
[COLOR=#1A1A1A]Set pt = ActiveSheet.PivotTables(1)[/COLOR]
[COLOR=#1A1A1A]For Each pf In pt.PivotFields[/COLOR]
[COLOR=#1A1A1A]pf.ClearAllFilters[/COLOR]
[COLOR=#1A1A1A]Next[/COLOR]
[COLOR=#1A1A1A]End Sub[/COLOR][/FONT][/SIZE]

 

[wakerider017]

I did something slightly more simple...

Sub CopyFilterAll()

Call CopyFilter1
Call CopyFilter2

End Sub

Sub CopyFilter1()

Dim filter1 As String

filter1 = ActiveSheet.PivotTables("PivotTable1").PivotFields("Week Ending").CurrentPage

ActiveSheet.PivotTables("PivotTable2").PivotFields("Week Ending").CurrentPage = filter1
ActiveSheet.PivotTables("PivotTable3").PivotFields("Week Ending").CurrentPage = filter1
ActiveSheet.PivotTables("PivotTable4").PivotFields("Week Ending").CurrentPage = filter1
ActiveSheet.PivotTables("PivotTable6").PivotFields("Week Ending").CurrentPage = filter1
ActiveSheet.PivotTables("PivotTable9").PivotFields("Week Ending").CurrentPage = filter1
ActiveSheet.PivotTables("PivotTable7").PivotFields("Week Ending").CurrentPage = filter1

End Sub

Sub CopyFilter2()

Dim filter2 As String

filter2 = ActiveSheet.PivotTables("PivotTable1").PivotFields("Fac ID").CurrentPage

ActiveSheet.PivotTables("PivotTable2").PivotFields("Fac ID").CurrentPage = filter2
ActiveSheet.PivotTables("PivotTable3").PivotFields("Fac ID").CurrentPage = filter2
ActiveSheet.PivotTables("PivotTable4").PivotFields("Fac ID").CurrentPage = filter2
ActiveSheet.PivotTables("PivotTable5").PivotFields("Fac ID").CurrentPage = filter2
ActiveSheet.PivotTables("PivotTable6").PivotFields("Fac ID").CurrentPage = filter2
ActiveSheet.PivotTables("PivotTable9").PivotFields("Fac ID").CurrentPage = filter2
ActiveSheet.PivotTables("PivotTable7").PivotFields("Fac ID").CurrentPage = filter2

End Sub