vba - Add data series fails when using range -
i have following loop trying append data series range of columns:
do until wb.worksheets("rts raw data").cells(1, k) = "" set c1 = cells(3, k) set c2 = cells(lr, k) activechart.seriescollection.add source:=wb.worksheets("rts raw data").range(cells(3, k), cells(lr, k)) activechart.seriescollection(11 + k).xvalues = wb.worksheets("rts raw data").range("b3:b" & lr) activechart.seriescollection(11 + k).name = wb.worksheets("rts raw data").cells(2, k) if (wb.worksheets("rts raw data").cells(3, k) = "-999") mcwb.shapes("checkbox" & 8 + k).textframe.characters.text = "unused" else mcwb.shapes("checkbox" & 8 + k).textframe.characters.text = wb.worksheets("rts raw data").cells(2, k) end if activechart.seriescollection(11 + k).axisgroup = xlprimary k = k + 1 loop the code fails on activechart.seriescollection.add source:=wb.worksheets("rts raw data").range(cells(3, k), cells(lr, k)) not fail when .range("e3:e" & lr) used.
thanks in advance.
it looks activechart isn't on rts raw data.
in code range defined being on rts raw data, 2 occurrences of cells isn't qualified sheet it's using activesheet.
activechart.seriescollection.add source:=wb.worksheets("rts raw data").range(cells(3, k), cells(lr, k))
try using with...end with block shorten code bit:
with wb.worksheets("rts raw data") activechart.seriescollection.add source:=.range(.cells(3, k), .cells(lr, k)) end this same writing:
activechart.seriescollection.add source:=wb.worksheets("rts raw data").range(wb.worksheets("rts raw data").cells(3, k), wb.worksheets("rts raw data").cells(lr, k))
Comments
Post a Comment