K
KEMAL EKMEN
u must record new one macro using the 2 axes graph that can be changed depending on your selection of currentpage. u can also use a combobox form and a new sheet containing graph already. when u change to the new pivotfield item pivotchart jump into your recorded macro. (when u change to the combobox item you can get data needed for graph )
'for finding items and get it written a new temp. file
Sub Node_selection_graph()
'To determine how many BSC Nodes are available in the data
reportfile = ActiveWorkbook.Name
Workbooks.Add
temp_file = ActiveWorkbook.Name
Windows(reportfile).Activate
Dim pt As PivotTable
Set pt = ActiveChart.PivotLayout.PivotTable
For i = 1 To pt.PivotFields("BSC").PivotItems.Count
'pt.PivotFields("BSC").CurrentPage = pt.PivotFields(" BSC").PivotItems(i).Name
Nodes(i) = pt.PivotFields("BSC").PivotItems(i).Name
Windows(temp_file).Activate
Cells(i, 1) = Nodes(i)
pt.ManualUpdate = False
pt.ManualUpdate = True
Windows(reportfile).Activate
Next i
EggHeadCafe.com - .NET Developer Portal of Choice
http://www.eggheadcafe.com
'for finding items and get it written a new temp. file
Sub Node_selection_graph()
'To determine how many BSC Nodes are available in the data
reportfile = ActiveWorkbook.Name
Workbooks.Add
temp_file = ActiveWorkbook.Name
Windows(reportfile).Activate
Dim pt As PivotTable
Set pt = ActiveChart.PivotLayout.PivotTable
For i = 1 To pt.PivotFields("BSC").PivotItems.Count
'pt.PivotFields("BSC").CurrentPage = pt.PivotFields(" BSC").PivotItems(i).Name
Nodes(i) = pt.PivotFields("BSC").PivotItems(i).Name
Windows(temp_file).Activate
Cells(i, 1) = Nodes(i)
pt.ManualUpdate = False
pt.ManualUpdate = True
Windows(reportfile).Activate
Next i
EggHeadCafe.com - .NET Developer Portal of Choice
http://www.eggheadcafe.com