Several Pivot Tables: Change one filter and adapt it for the other

[Aloha08]

Hey,

I have 6 Pivot Tables and don't want to change each of the filter
seperately, to give me useful data. (e.g. change each one to the same date
seperately).

So I just want to change one filter and the other filters change to the same
Value.

So far I have this.

I have 6 Pivot tables in one Sheet, just the Article numbers in another
sheet, and all the data (inclusive article numbers again) in one more sheet.

Can someone help me please?

Dim x, n As Integer
Dim r As Variant
Dim art_no As Variant



For x = 1 To 5
Select Case x
Case 1
x = 11
Case 2
x = 12
Case 3
x = 13
Case 4
x = 14
Case 5
x = "ALL"
End Select

Set r = Worksheets("art").Range("A2:A1000")
n = 1

For n = 1 To r.Rows.Count
If r.Cells(n, 1) = "" Then
Exit For
End If

art_no = r.Cells(n, 1)


ActiveSheet.PivotTables("Sales,Receipt").PivotFields("Store").CurrentPage = x
ActiveSheet.PivotTables("Sales,Receipt").PivotFields("Art
MGB").CurrentPage = art_no


ActiveSheet.PivotTables("PivotTable3").PivotFields("Store").CurrentPage = x
ActiveSheet.PivotTables("PivotTable3").PivotFields("Art
MGB").CurrentPage = art_no


ActiveSheet.PivotTables("PivotTable1").PivotFields("Store").CurrentPage = x
ActiveSheet.PivotTables("PivotTable1").PivotFields("Art
MGB").CurrentPage = art_no


ActiveSheet.PivotTables("PivotTable4").PivotFields("Store").CurrentPage = x
ActiveSheet.PivotTables("PivotTable4").PivotFields("Art
MGB").CurrentPage = art_no


ActiveSheet.PivotTables("PivotTable2").PivotFields("Store").CurrentPage = x
ActiveSheet.PivotTables("PivotTable2").PivotFields("Art
MGB").CurrentPage = art_no


ActiveSheet.PivotTables("PivotTable7").PivotFields("Store").CurrentPage = x
ActiveSheet.PivotTables("PivotTable7").PivotFields("Art
MGB").CurrentPage = art_no

Next n

Next x

End Sub

 

[Roger Govier]

Hi

Take a look at the sample file
http://www.contextures.com/PivotMultiPagesCellChange.zip

 

[Aloha08]

You are great! THANKS!!!

Hi

Take a look at the sample file
http://www.contextures.com/PivotMultiPagesCellChange.zip