Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
updating pivot charts with vba
I have two worksheets, one that contains the pivot tables and another that
contains the pivot charts. I programmed on the pivot tables worksheet that when a selection is made from the pivot table dropdown all the other pivot table selections are updated automatically to the selection. What im looking to do though is on the pivot chart page, when i change the selection there how does it change all the pivot chart selections automatically? Btw just in case someone wants to change several pivot tables at once, this code might help out for that. The code im using to change the pivot tables is: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim pt As PivotTable Dim pf As PivotField Dim pt1 As PivotTable Dim pf1 As PivotField Dim str As String Dim counter As Integer counter = 1 ' Base table that gets updated ' PivotTable2 is the main table that is updated. Set pt = Me.PivotTables("PivotTable2") Set pf = pt.PivotFields("str_seg") ' User can't select the (All) selection If pf.CurrentPage = "(All)" Then pf.CurrentPage = "Nation" MsgBox ("The display of (All) is disabled.") End If ' 10 pivot tables on the work sheet, go through each one of them and update the selections While (counter <= 10) Set pt1 = Me.PivotTables(counter) Set pf1 = pt1.PivotFields("str_seg") str = pf.CurrentPage pf1.CurrentPage = str counter = counter + 1 Wend End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
updating pivot charts with vba
The text box, or chart title, can only link to a cell -- the text box
can't contain a formula. So, instead of linking to the selection cell, link to another cell that contains the formula: =C1 & " Text" Tim wrote: I found out how to do it, sort of. What i did was on the chart it self, select the chart title and in the formula box make a cell reference to the pivot table selection area. This will update each time a new selection occurs, though the rest of the next that i need to come out needs to be put into another text box. For some reason i cant do =C1 & "TEXT" as it says that is an invalid function. I also tried concatenate(C1, "Text") and it still didnt work, anyone have a solution to this? Tim "Tim" wrote: I have two worksheets, one that contains the pivot tables and another that contains the pivot charts. I programmed on the pivot tables worksheet that when a selection is made from the pivot table dropdown all the other pivot table selections are updated automatically to the selection. What im looking to do though is on the pivot chart page, when i change the selection there how does it change all the pivot chart selections automatically? Btw just in case someone wants to change several pivot tables at once, this code might help out for that. The code im using to change the pivot tables is: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim pt As PivotTable Dim pf As PivotField Dim pt1 As PivotTable Dim pf1 As PivotField Dim str As String Dim counter As Integer counter = 1 ' Base table that gets updated ' PivotTable2 is the main table that is updated. Set pt = Me.PivotTables("PivotTable2") Set pf = pt.PivotFields("str_seg") ' User can't select the (All) selection If pf.CurrentPage = "(All)" Then pf.CurrentPage = "Nation" MsgBox ("The display of (All) is disabled.") End If ' 10 pivot tables on the work sheet, go through each one of them and update the selections While (counter <= 10) Set pt1 = Me.PivotTables(counter) Set pf1 = pt1.PivotFields("str_seg") str = pf.CurrentPage pf1.CurrentPage = str counter = counter + 1 Wend End Sub -- Debra Dalgleish Excel FAQ, Tips & Book List http://www.contextures.com/tiptech.html |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Charts not updating | Excel Worksheet Functions | |||
Updating Charts | Charts and Charting in Excel | |||
updating pie charts | Excel Discussion (Misc queries) | |||
updating charts | Excel Programming | |||
updating charts | Excel Programming |