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))   

https://msdn.microsoft.com/en-us/library/wc500chb.aspx


Comments

Popular posts from this blog

How to understand 2 main() functions after using uftrace to profile the C++ program? -

c# - Update a combobox from a presenter (MVP) -

How to put a lock and transaction on table using spring 4 or above using jdbcTemplate and annotations like @Transactional? -