Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
(previous discussion with Tom - Dynamically creating pt from li
Hi Tom,
I tried your code and I think it needs to be adjusted so that "page filters" and not "page fields" are being updated from my list in the Summary sheet (contained in Columns C and D). I tried to update it, but it didn't work. I created a master pivot table with the desired format and the link to the data and named it "PIV_Template". Here is the code that I have so far adapted from your original code: Private Sub Worksheet_Change(ByVal Target As Range) Dim pi As PivotItem If Target.Count 1 Then Exit Sub If Target.Column = 3 Or Target.Column = 4 Then Sheets("PIV_Template").Copy After:=Worksheets(Worksheets.Count) If Target.Column = 3 Then With sh.PivotTables("Project_View") _ ..PageFields("ITBGrp") For Each pi In .PivotItems If LCase(pi.Value) = LCase(Target.Value) Then ..CurrentPage = pi.Value End If Next End With ElseIf Target.Column = 4 Then With sh.PivotTables("Project_View") _ ..PageFields("IO_Grp") For Each pi In .PivotItems If LCase(pi.Value) = LCase(Target.Value) Then ..CurrentPage = pi.Value End If Next End With End If sh.Activate End If End Sub Thanks a million. -- Kent Lysell Financial Consultant Ottawa, Ontario W: 613.948-9557 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Creating a Dynamically Linked Worksheet | Excel Worksheet Functions | |||
Dynamically creating Non-Contigous Ranges | Excel Programming | |||
Dynamically creating a toolbar button | Excel Programming | |||
dynamically creating check boxes | Excel Programming | |||
Dynamically Creating Sheets | Excel Programming |