Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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. |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 :( |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 :( |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Do until loop with use of another macro in loop | Excel Programming | |||
how can i loop a macro | Excel Discussion (Misc queries) | |||
loop macro | Excel Programming | |||
Loop a macro | Excel Programming | |||
VBA Macro Loop | Excel Programming |