Macro for automatically change with dropdown

[maheshrk81]

Hi All,

I have a summary sheet with lots of other Pivot data sheets. In my summary sheet i get data from all other pivot sheets with formulas. Now i need a macro when i click the Drop down in my Summary sheet, then automatically in the pivot sheet that should change.

Ex: In my summary sheet i have Dropdown for AREA - .........
when i click particular Area in the summary, automatically in other pivot sheet the pivot table Report filter should change.

(Even if with combo box or somethig ..)

Plz help..

Regards,
Mahi

 

[maheshrk81]

Hi All,

I have a summary sheet with lots of other Pivot data sheets. In my summary sheet i get data from all other pivot sheets with formulas. Now i need a macro when i click the Drop down in my Summary sheet, then automatically in the pivot sheet that should change.

Ex: In my summary sheet i have Dropdown for AREA - .........
when i click particular Area in the summary, automatically in other pivot sheet the pivot table Report filter should change.

(Even if with combo box or somethig ..)

Plz help..

Regards,
Mahi

Pls need help... Any idea on this..

 

[obiron]

Here is some code that I used to do something similar (make two pivot tables match)

Dim pt As PivotTable
Dim pt2 As PivotTable
Dim ws As Worksheet
Dim a1 As String
Dim a2 As String
Set ws = Worksheets("PivotTable")
Set pt = ws.PivotTables("PivotTable1")
pt.ManualUpdate = True
Set pt2 = ws.PivotTables("PivotTable2")
pt2.PivotFields("Dept").CurrentPage = pt.PivotFields("Dept").CurrentPage.Value
pt2.PivotFields("Style").CurrentPage = pt.PivotFields("Style").CurrentPage.Value
pt2.PivotFields("SKU").CurrentPage = pt.PivotFields("SKU").CurrentPage.Value

 

[maheshrk81]

Thanks.. Trying with that cose but not working properly..
In my summary tab its not Pivot. Its normal drop down which is having a list is defined range. but wen i click in the summary tab, the pivot table shold change.
Plz help me..

 

[obiron]

pivottable.pivotfield("Myfield").currentpage = listbox.value