Add 3 sets of data to existing graph and then step down to next row and repeat

[flynch]

Per row, I have the name, the Y value and three sets of X values. For example:

Name, Y value, X value 1, X value 2, X value 3
Name, Y value, X value 1, X value 2, X value 3
Name, Y value, X value 1, X value 2, X value 3
(and so on..)

I am trying to plot each row onto an existing scatter graph (where each name has three sets of points) and then for it to step down to the next row and repeat the same process.

I have the code:

Sub summaryGraph()
Worksheets("PE summary").ChartObjects(1).Activate
Do While Index < 200
        Call MySummaryGraph(i)
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Function MySummaryGraph(I)

With ActiveChart.SeriesCollection.NewSeriesSetsourceData

        .Name = ActiveSheet.Range("AG3")
        .Values = ActiveSheet.Range("AF3")
        .XValues = ActiveSheet.Range("AJ3")
End With
With ActiveChart.SeriesCollection.NewSeries
        .Name = ActiveSheet.Range("AG3")
        .Values = ActiveSheet.Range("AF3")
        .XValues = ActiveSheet.Range("AK3")
End With
With ActiveChart.SeriesCollection.NewSeries

        .Name = ActiveSheet.Range("AG3")
        .Values = ActiveSheet.Range("AF3")
        .XValues = ActiveSheet.Range("AL3")
        End With
End Function

But it is coming up with the error message "Error 91: Object variable or With block variable not set"

I'm really new to vba so if this is completely wrong I apologise!

 

[RoryA]

Glad to help.

Just takes practice!

 

[flynch]

Glad to help.

Just takes practice!

Don't suppose you know how to clear the series before I run the macro do you? It's a graph which will update every time I press a button. I need to clear the graph apart from the first series before I populate it.

Thanks for your help so far

 

[RoryA]

To leave just the first series:

Sub summaryGraph()
Dim i as long
Dim n as long
Dim ch as Chart
Set ch = Worksheets("PE summary").ChartObjects(1).Chart
for n = ch.seriescollection.count to 2 step -1
   ch.seriescollection(n).delete
next n
For i = 1 to 64
        Call MySummaryGraph(i + 2, ch)
Next i
End Sub

 

[flynch]

To leave just the first series:

Sub summaryGraph()
Dim i as long
Dim n as long
Dim ch as Chart
Set ch = Worksheets("PE summary").ChartObjects(1).Chart
for n = ch.seriescollection.count to 2 step -1
   ch.seriescollection(n).delete
next n
For i = 1 to 64
        Call MySummaryGraph(i + 2, ch)
Next i
End Sub

Once again, you saved my bacon!

Thank you!!!!