Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Controlling Pivot Table Field Page-2
Dear All,
I hope someone can help me out. I am a VBA dummy but would like to do this. There are 4 things I want to be able to do: 1. Cell $B$24 controls 2 pivot table field on the same page. (unlimited specific would be great!!) 2. Cell $B$24 controls 2 pivot table field on different worksheets. 3. Pivot Table Field 1("Month Ended -----") controls pivot table field 2 ("Month Ended") . 4. Cell $B$24 is a formula =Sheet1!A2 or a vlookup, and if this cell changes, the pivot field also changes. This is the script I have: Private Sub Worksheet_Change(ByVal Target As Range) Dim pt As PivotTable Dim pf As PivotField Dim pf1 As PivotField Dim pi As PivotItem Set pt = Worksheets("Page 1-Summary").PivotTables(1) Set pf = pt.PageFields("Month Ended" & "Month Ended -----") <--------- i tried adding this...lol Set pf1 = pt.PageFields()<--------------- i tried adding this..lol If Target.Address = "$B$24" Then Application.EnableEvents = False For Each pi In pf.PivotItems 'For Each pi In pf1.PivotItems If DateValue(pi.Value) = DateValue(Target.Value) Then pf.CurrentPage = pi.Value Exit For End If Next pi Application.EnableEvents = True End If No obligation to answer all, at least 1 is another step closer. Thanks!!!.......... |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Controlling Pivot Table Page-Field | Excel Discussion (Misc queries) | |||
Pivot Table Page Field Area Broken | Excel Discussion (Misc queries) | |||
Pivot Table Page Field | Excel Discussion (Misc queries) | |||
Pivot Table Page Field | Excel Discussion (Misc queries) | |||
Pivot Table - Filtering Page Field | Excel Discussion (Misc queries) |