Updating Series Data for chart based on variable.
 

I'm trying to have VBA change the ranges for a chart based on the last row in
a set of data. The row number has been set to "i".

I already have Dim i as long at the beginning of my macro

My code looks like this:
Sheet6.ChartObjects("Chart 1").Activate
With ActiveChart
.SeriesCollection(1).Value = Sheet1.Range("$CH$17:$CH$" & i)
.SeriesCollection(1).XValues = Sheet1.Range("$I$17:$I$" & i)
.SeriesCollection(2).Value = Sheet1.Range("$CG$17:$CG$" & i)
.SeriesCollection(2).XValues = Sheet1.Range("$I$17:$I$" & i)
.SeriesCollection(3).Value = Sheet1.Range("$CF$17:$CF$" & i)
.SeriesCollection(3).XValues = Sheet1.Range("$I$17:$I$" & i)
End With


I've also tried to do it like this:
Sheet6.ChartObjects("Chart 1").SeriesCollection(1).Value =
Sheet1.Range("$CH$17:$CH$" & i)
Sheet6.ChartObjects("Chart 1").SeriesCollection(1).XValues =
Sheet1.Range("$I$17:$I$" & i)
Sheet6.ChartObjects("Chart 1").SeriesCollection(2).Value =
Sheet1.Range("$CG$17:$CG$" & i)
Sheet6.ChartObjects("Chart 1").SeriesCollection(2).XValues =
Sheet1.Range("$I$17:$I$" & i)
Sheet6.ChartObjects("Chart 1").SeriesCollection(3).Value =
Sheet1.Range("$CF$17:$CF$" & i)
Sheet6.ChartObjects("Chart 1").SeriesCollection(3).XValues =
Sheet1.Range("$I$17:$I$" & i)

Thanks in advance for the assistance.

Updating Series Data for chart based on variable.
 

Never mind, I figured it out myself.

The code:

SeriesCollection(1).Value

should have said:

SeriesCollection(1).Values



"Kurt Barr" wrote:

I'm trying to have VBA change the ranges for a chart based on the last row in
a set of data. The row number has been set to "i".

I already have Dim i as long at the beginning of my macro

My code looks like this:
Sheet6.ChartObjects("Chart 1").Activate
With ActiveChart
.SeriesCollection(1).Value = Sheet1.Range("$CH$17:$CH$" & i)
.SeriesCollection(1).XValues = Sheet1.Range("$I$17:$I$" & i)
.SeriesCollection(2).Value = Sheet1.Range("$CG$17:$CG$" & i)
.SeriesCollection(2).XValues = Sheet1.Range("$I$17:$I$" & i)
.SeriesCollection(3).Value = Sheet1.Range("$CF$17:$CF$" & i)
.SeriesCollection(3).XValues = Sheet1.Range("$I$17:$I$" & i)
End With


I've also tried to do it like this:
Sheet6.ChartObjects("Chart 1").SeriesCollection(1).Value =
Sheet1.Range("$CH$17:$CH$" & i)
Sheet6.ChartObjects("Chart 1").SeriesCollection(1).XValues =
Sheet1.Range("$I$17:$I$" & i)
Sheet6.ChartObjects("Chart 1").SeriesCollection(2).Value =
Sheet1.Range("$CG$17:$CG$" & i)
Sheet6.ChartObjects("Chart 1").SeriesCollection(2).XValues =
Sheet1.Range("$I$17:$I$" & i)
Sheet6.ChartObjects("Chart 1").SeriesCollection(3).Value =
Sheet1.Range("$CF$17:$CF$" & i)
Sheet6.ChartObjects("Chart 1").SeriesCollection(3).XValues =
Sheet1.Range("$I$17:$I$" & i)

Thanks in advance for the assistance.