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.
|