FOR loop macro
On Oct 19, 2:21 pm, "George Nicholson"
wrote:
Try taking out the parentheses (if it works, do the same thing on the next
line)
ActiveChart.SeriesCollection(i).Values = "='Sheet1'!R" & j & "C1:R" & k &
"C1"
HTH,
wrote in message
ps.com...
Error:
Unable to set the value propoerty of the series class
Please help me fix this error? Thanks
The code I use is
sub chart ()
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData
Source:=Sheets("Sheet1").Range("A45:F63000"), PlotBy:= _
xlColumns
For i = 1 To 10
j = ((i - 1) * 524) + 46
k = j + 523
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(i).XValues = "='Sheet1'!
R46C3:R569C3"
ActiveChart.SeriesCollection(i).Values = "='Sheet1'!R(" & j &
")C1:R(" & k & ")C1" '''''''''''' Error here
ActiveChart.SeriesCollection(i).Name = "=Sheet1'!R(" & j & ")C2"
Next- Hide quoted text -
- Show quoted text -
George, It doesnt work :(
|