Hello,
I am trying to change the Y values of every chart in my worksheet. I have many, many charts each with 3 series named "Data", "Min" and "Max".
Each chart is named "C3", "C4", etc.
If the series name is "Data" I want it to grab the information from sheet "Summary" from columns L to AO for the row number of the Data double and same can be said for Min and Max.
Here is what I have:
Dim Data As Double
Dim Max As Double
Dim Min As Double
Dim mySeries As Series
Dim seriesCol As FullSeriesCollection
Dim I As Integer
For k = 3 To NumOfChtsPlusTwo
I = 1
Data = k + 15
Max = 129 + 3 * k
Min = 128 + 3 * k
Set seriesCol = ActiveSheet.ChartObjects("C" & k).Chart.FullSeriesCollection
For Each mySeries In seriesCol
Set mySeries = ActiveSheet.ChartObjects("C" & k).Chart.FullSeriesCollection(I)
If mySeries.Name = "Data" Then
mySeries.Values = _
"='Summary'!$L$ & Data & :$AO$ & Data"
ElseIf mySeries.Name = "Max" Then
mySeries.Values = _
"='Summary'!$L$ & Max & :$AO$ & Max"
ElseIf mySeries.Name = "Min" Then
mySeries.Values = _
"='Summary'!$L$ & Min & :$AO$ & Min"
End If
I = I + 1
Next mySeries
Next k
I am getting Run-Time error '1004': Application-defined or object-defined error
Bookmarks