synchronize two pivot table
 

Hi Sandy,
I did what you suggested but it seems can't work.
These two pivot table won't change to selected page
as in another pivot table.Any other idea?


"Sandy Mann" wrote in message
...
I don't know if this is what you want but assuming that the first table is
in Sheet 1 A1:G20 and the second one is in Sheet 2 then in the Sheet
Module
of sheet 1 enter:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Intersect(Target, Range("A1:G20")) Is Nothing Then Exit Sub
Here = Target.Address
Call SelectIt(Here)
End Sub

and then in a General Module:

Sub SelectIt(Here)
Application.ScreenUpdating = False
Sheets("Sheet2").Activate
Range(Here).Select
Sheets("Sheet1").Activate
Application.ScreenUpdating = True
End Sub

If you want to immediately go to Sheet 2 then in the General Module use:

Sub SelectIt(Here)
Application.ScreenUpdating = False
Sheets("Sheet2").Activate
Range(Here).Select
Beep
Application.ScreenUpdating = True
End Sub

The Beep is just to alert you that the sheet has changed.


--
HTH

Sandy
In Perth, the ancient capital of Scotland
and the crowning place of kings


Replace @mailinator.com with @tiscali.co.uk


"shiro" wrote in message
...
I have two pivot table on a worksheet,I want to
synchronize the page between them both.I mean,
if user select page A in the first pivot table,auto
matically the page selected on the second pivot
table is A too.Is it possible?
Hope somebody like to pint me to the right direction.
Thank's in advance.

Rgds,

Shiro

synchronize two pivot table
 

The code from Debra can't not work in my workbook.

Is there any something wrong?I just modified the sheet's

name to my worksheet's name in the code,is there any other

things need to be modified or pay attention for?



"Roger Govier" <roger@technology4unospamdotcodotuk wrote in message
...

Hi

Debra Dalgleish has a sample workbook on her site to do just this.

http://www.contextures.com/PivotMultiPagesChangeAll.zip

Regards

Roger Govier



"shiro" wrote in message
...
Hi Sandy,
I did what you suggested but it seems can't work.
These two pivot table won't change to selected page
as in another pivot table.Any other idea?


"Sandy Mann" wrote in message
...
I don't know if this is what you want but assuming that the first table
is
in Sheet 1 A1:G20 and the second one is in Sheet 2 then in the Sheet
Module
of sheet 1 enter:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Intersect(Target, Range("A1:G20")) Is Nothing Then Exit Sub
Here = Target.Address
Call SelectIt(Here)
End Sub

and then in a General Module:

Sub SelectIt(Here)
Application.ScreenUpdating = False
Sheets("Sheet2").Activate
Range(Here).Select
Sheets("Sheet1").Activate
Application.ScreenUpdating = True
End Sub

If you want to immediately go to Sheet 2 then in the General Module use:

Sub SelectIt(Here)
Application.ScreenUpdating = False
Sheets("Sheet2").Activate
Range(Here).Select
Beep
Application.ScreenUpdating = True
End Sub

The Beep is just to alert you that the sheet has changed.


--
HTH

Sandy
In Perth, the ancient capital of Scotland
and the crowning place of kings


Replace @mailinator.com with @tiscali.co.uk


"shiro" wrote in message
...
I have two pivot table on a worksheet,I want to
synchronize the page between them both.I mean,
if user select page A in the first pivot table,auto
matically the page selected on the second pivot
table is A too.Is it possible?
Hope somebody like to pint me to the right direction.
Thank's in advance.

Rgds,

Shiro