|
FOR loop macro
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 |
FOR loop macro
ActiveChart.SeriesCollection(i).XValues = "='Sheet1'!
R46C3:R569C3" ActiveChart.SeriesCollection(i).Values = "='Sheet1'!R(" & j & ")C1:R(" & k & ")C1" '''''''''''' Error here I've not worked with charts myself, so this is just a guess... but shouldn't the .Values in the above line be .XValues (or maybe .YValues) like in the line above it? Rick |
FOR loop macro
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 |
FOR loop macro
On Oct 19, 2:19 pm, "Rick Rothstein \(MVP - VB\)"
wrote: ActiveChart.SeriesCollection(i).XValues = "='Sheet1'! R46C3:R569C3" ActiveChart.SeriesCollection(i).Values = "='Sheet1'!R(" & j & ")C1:R(" & k & ")C1" '''''''''''' Error here I've not worked with charts myself, so this is just a guess... but shouldn't the .Values in the above line be .XValues (or maybe .YValues) like in the line above it? Rick No it is .values Even the macro recorder returns it as .values and .xvalues This makes sense because for a X-Y scatter plot if .xvalues are declared, then .values automatically refer to y ones. |
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 :( |
FOR loop macro
George was right, you need to remove the parentheses from both lines of code.
But as well as that, in your .Name line, you are missing an apostrophe between = and Sheet1. " wrote: 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 :( |
| All times are GMT +1. The time now is 05:17 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com