pivot table filter
Sorry, I'm new to VBA, and I'm not following your suggestion.
"Héctor Miguel" wrote:
hi, samuel !
I recorded a macro and simulated what I want to happen automatically.
Obviously PivotTable5 is what I want to change automatically based on PivotTable 4
ActiveSheet.PivotTables("PivotTable4").PivotFields ("Facility").ClearAllFilters
ActiveSheet.PivotTables("PivotTable4").PivotFields ("Facility").CurrentPage = "MCMC"
ActiveSheet.PivotTables("PivotTable5").PivotFields ("Facility").ClearAllFilters
ActiveSheet.PivotTables("PivotTable5").PivotFields ("Facility").CurrentPage = "MCMC"
try with your worksheet events code module and something like the following:
Private Sub Worksheet_Calculate()
Me.PivotTables("PivotTable5").PivotFields("Facilit y").CurrentPage = _
CStr(Me.PivotTables("PivotTable4").PivotFields("Fa cility").CurrentPage.Value)
End Sub
hth,
hector.
__ OP __
I have two independent pivot tables. Each has 3 filters.
I would like to change the filters of the second pivot table based on the values in the first pivot table's filters.
Is this possible?
I can't "see" your layout, but try using vba/code in the '_change' event (in your worksheet/s or workbook object)
to make "other" filter/s match the (current) "changing-cell-filter" ;)
|