Excel 2010 VBA.. Adding series to existing chart -

Excel 2010 VBA.. Adding series to existing chart -

i trying populate chart info user can press button on spreadsheet. issue having need button re-create info data sheet , chart populate info sheet. can this, need new series created on chart every new info ente

sub roundedrectangle2_click() end sub sub maps() sheets("maps_form").range("e47").copy sheets("data_sheet").range("b65536").end(xlup).offset(1, 0).pastespecial _ paste:=xlpastevalues application.cutcopymode = false sheets("maps_form").range("d2").copy sheets("data_sheet").range("a65536").end(xlup).offset(1, 0).pastespecial _ paste:=xlpastevalues application.cutcopymode = false sheets("data_sheet").range("b2:b46").copy charts("chart1").seriescollection.paste range("e6:i8").clearcontents range("e12:i19").clearcontents range("e23:i27").clearcontents range("e31:i36").clearcontents range("e40:i43").clearcontents range("d2").clearcontents sheets("data_sheet").select end sub

simply alter .setsourcedata property after add together data.

let's take example

lets info a1:a5 , chart based on range. see screenshot below

now lets added info b1:b5 , want show series in chart utilize code

option explicit '~~> please amend code applicable sub sample() dim objchrt chartobject dim chrt chart set objchrt = activesheet.chartobjects("chart 1") set chrt = objchrt.chart chrt .setsourcedata (activesheet.range("a1:b5")) end end sub

when run code chart automatically show new series.

excel-vba