Let’s see if I can get some help this time…I have a pivot table with a filter field called CELL_NAME ..I am doing several charts of each CELL_NAME.
I have the charts appearing in a different sheet(sheet 3) but I want them in a diferent sheet.The problem is that I need the filter field to be in the same sheet as the charts, as it is more user friendly.. so I would need to ‘duplicate’ the filter for CELL_NAME to appear also in the same sheet as the charts.
I have tried with getpivotdata() but no luck and also I am not sure what is that function for..Also, I have thought that maybe it is posible to create a new pivot table and link both somehow…Although I would prefer not having two pivot tables….
any idea?
thanks in advance!!
Maria

Like this?

Dim sName As String
sName = ThisWorkbook.Worksheets(“Sheet2″).Range(“A2″).Value

.Name = sName
.Values = pt.PivotFields(“Values”).PivotItems(sName).DataRange

And in the previous macro , I would like to automatically create charts when inserting data in the config table. For that, I am trying to get the name from the column ‘Series’ and what is more difficult, get the data from the column of the pivot table which belongs to that name ( In this case ” $Sheet2!A2″= TCH_ASS_FR )

.Name = ” $Sheet2!A2″
.Values = pt.PivotFields(“Values”).PivotItems(” $Sheet2!A2″).DataRange

Any idea?
Thanks again!
Maria

If SetSourceData includes any pivot table data, the chart will automatically convert into a pivot chart based on that pivot table.

You have to make sure a blank cell surrounded by blank cells is selected before you use ChartObjects.Add, which will produce a blank chart with no data series. Then you have to add each series:

With ActiveSheet.ChartObjects.Add(left, top, width, height).Chart
  With .SeriesCollection.NewSeries ' first series
    .Values = whatever
    .XValues = whatever
    .Name = whatever
    .ChartType = xlLine
  End With
  With .SeriesCollection.NewSeries ' subsequent series
    .Values = whatever2
    .XValues = whatever2
    .Name = whatever2
    .ChartType = xlLine
  End With
End With

Also, Range(“22B:26B”) is incorrect. If you want that particular range it is referenced as Range(“B22:B26”). But again, you probably do not want to use SetSourceData.