excel - How to plot graphs on their corresponding sheet? -


i taking data multiple spreadsheets , plotting them on chart, each of respective spreadsheets. want data spreadsheet1 plot graph on spreadsheet1. currently, code plots of graphs on last sheet, graphs sheets 1,2,3, etc plotted on last sheet. unsure how fix new vba. recorded macro code plot data.

here plotting code:

for j = 1 size 'creates chart  activesheet.shapes.addchart2(240, xlxyscatter).select activesheet.shapes("chart 1").incrementleft 696.75 activesheet.shapes("chart 1").incrementtop -81.75 activesheet.shapes("chart 1").scalewidth 1.3333333333, msofalse, _     msoscalefromtopleft activesheet.shapes("chart 1").scaleheight 1.6909722222, msofalse, _     msoscalefromtopleft application.cutcopymode = false application.cutcopymode = false application.cutcopymode = false application.cutcopymode = false application.cutcopymode = false application.cutcopymode = false activechart.seriescollection.newseries activechart.fullseriescollection(1).name = "=""length , depth data""" activechart.fullseriescollection(1).xvalues = worksheets("case " & overview(j, 1)).range("$r$10:$r$6000") activechart.fullseriescollection(1).values = worksheets("case " & overview(j, 1)).range("$s$10:$s$6000") activechart.seriescollection.newseries activechart.fullseriescollection(2).name = "=""b31g maop""" activechart.fullseriescollection(2).xvalues = worksheets("case " & overview(j, 1)).range("$c$10:$c$159") activechart.fullseriescollection(2).values = worksheets("case " & overview(j, 1)).range("$i$10:$i$159") activechart.seriescollection.newseries activechart.fullseriescollection(3).name = "=""b31g 1.25sf""" activechart.fullseriescollection(3).xvalues = worksheets("case " & overview(j, 1)).range("$c$10:$c$159") activechart.fullseriescollection(3).values = worksheets("case " & overview(j, 1)).range("$j$10:$j$159") activechart.seriescollection.newseries activechart.fullseriescollection(4).name = "=""b31g 1.39sf""" activechart.fullseriescollection(4).xvalues = worksheets("case " & overview(j, 1)).range("$c$10:$c$159") activechart.fullseriescollection(4).values = worksheets("case " & overview(j, 1)).range("$p$10:$p$159") activewindow.smallscroll down:=-126 activewindow.scrollcolumn = 3 activewindow.scrollcolumn = 4 activewindow.scrollcolumn = 5 activewindow.scrollcolumn = 6 activewindow.scrollcolumn = 7 activewindow.scrollcolumn = 8 activewindow.smallscroll down:=6 range("w32").select activesheet.shapes.addchart2(240, xlxyscatter).select activesheet.shapes("chart 2").incrementleft 311.25 activesheet.shapes("chart 2").incrementtop 213 activewindow.smallscroll down:=18 range("ad46:ad47").select activesheet.chartobjects("chart 2").activate activesheet.chartobjects("chart 2").activate activesheet.shapes("chart 2").scalewidth 1.3145833333, msofalse, _     msoscalefromtopleft activesheet.shapes("chart 2").scaleheight 1.4930555556, msofalse, _     msoscalefromtopleft activesheet.chartobjects("chart 2").activate application.cutcopymode = false application.cutcopymode = false application.cutcopymode = false activechart.seriescollection.newseries activechart.fullseriescollection(1).name = "=""length , depth data""" activechart.fullseriescollection(1).xvalues = worksheets("case " & overview(j, 1)).range("$r$10:$r$6000") activechart.fullseriescollection(1).values = worksheets("case " & overview(j, 1)).range("$s$10:$s$6000") activechart.seriescollection.newseries activechart.fullseriescollection(2).name = "=""mb31g maop""" activechart.fullseriescollection(2).xvalues = worksheets("case " & overview(j, 1)).range("$c$10:$c$159") activechart.fullseriescollection(2).values = worksheets("case " & overview(j, 1)).range("$n$10:$n$159") activechart.seriescollection.newseries activechart.fullseriescollection(3).name = "=""mb31g 1.25sf""" activechart.fullseriescollection(3).xvalues = worksheets("case " & overview(j, 1)).range("$c$10:$c$159") activechart.fullseriescollection(3).values = worksheets("case " & overview(j, 1)).range("$o$10:$o$159") activechart.seriescollection.newseries activechart.fullseriescollection(4).name = "=""b31g 1.39sf""" activechart.fullseriescollection(4).xvalues = worksheets("case " & overview(j, 1)).range("$c$10:$c$159") activechart.fullseriescollection(4).values = worksheets("case " & overview(j, 1)).range("$p$10:$p$159") activewindow.smallscroll down:=-117 activesheet.chartobjects("chart 1").activate activechart.plotarea.select activechart.setelement (msoelementcharttitleabovechart) activewindow.smallscroll down:=9 activechart.charttitle.text = "b31g burst curve" selection.format.textframe2.textrange.characters.text = "b31g burst curve" selection.format.textframe2.textrange.characters(1, 16).paragraphformat     .textdirection = msotextdirectionlefttoright     .alignment = msoaligncenter end with selection.format.textframe2.textrange.characters(1, 16).font     .baselineoffset = 0     .bold = msofalse     .namecomplexscript = "+mn-cs"     .namefareast = "+mn-ea"     .fill.visible = msotrue     .fill.forecolor.rgb = rgb(89, 89, 89)     .fill.transparency = 0     .fill.solid     .size = 14     .italic = msofalse     .kerning = 12     .name = "+mn-lt"     .underlinestyle = msonounderline     .spacing = 0     .strike = msonostrike end activesheet.chartobjects("chart 2").activate activechart.axes(xlvalue).majorgridlines.select activechart.setelement (msoelementcharttitleabovechart) activewindow.smallscroll down:=-12 activechart.charttitle.text = "b31g burst curve" selection.format.textframe2.textrange.characters.text = "b31g burst curve" selection.format.textframe2.textrange.characters(1, 16).paragraphformat     .textdirection = msotextdirectionlefttoright     .alignment = msoaligncenter end with selection.format.textframe2.textrange.characters(1, 4).font     .baselineoffset = 0     .bold = msofalse     .namecomplexscript = "+mn-cs"     .namefareast = "+mn-ea"     .fill.visible = msotrue     .fill.forecolor.rgb = rgb(89, 89, 89)     .fill.transparency = 0     .fill.solid     .size = 14     .italic = msofalse     .kerning = 12     .name = "+mn-lt"     .underlinestyle = msonounderline     .spacing = 0     .strike = msonostrike end with selection.format.textframe2.textrange.characters(5, 12).font     .baselineoffset = 0     .bold = msofalse     .namecomplexscript = "+mn-cs"     .namefareast = "+mn-ea"     .fill.visible = msotrue     .fill.forecolor.rgb = rgb(89, 89, 89)     .fill.transparency = 0     .fill.solid     .size = 14     .italic = msofalse     .kerning = 12     .name = "+mn-lt"     .underlinestyle = msonounderline     .spacing = 0     .strike = msonostrike end activesheet.chartobjects("chart 1").activate activechart.charttitle.select application.commandbars("format object").visible = false activechart.charttitle.text = "mb31g burst curve" selection.format.textframe2.textrange.characters.text = "mb31g burst curve" selection.format.textframe2.textrange.characters(1, 17).paragraphformat     .textdirection = msotextdirectionlefttoright     .alignment = msoaligncenter end with selection.format.textframe2.textrange.characters(1, 17).font     .baselineoffset = 0     .bold = msofalse     .namecomplexscript = "+mn-cs"     .namefareast = "+mn-ea"     .fill.visible = msotrue     .fill.forecolor.rgb = rgb(89, 89, 89)     .fill.transparency = 0     .fill.solid     .size = 14     .italic = msofalse     .kerning = 12     .name = "+mn-lt"     .underlinestyle = msonounderline     .spacing = 0     .strike = msonostrike end  next j

i in different way. quick fix wall of code provided adding beginning right after loop starts:

for j = 1 size   'creates chart        worksheets("case " & overview(j, 1)).activate      'rest of code same     '...  next j

you should read question , answers:

how avoid selecting , activating in vba?


Comments

Post a Comment

Popular posts from this blog

networking - Vagrant-provisioned VirtualBox VM is not reachable from Ubuntu host -

this question exact duplicate of: puphpet/vagrant: unable access lamp vm ip address 1 answer i following basic vagrant tutorial , vagrant provisions box on ubuntu without complaining. moreover, can vagrant ssh vm. however, vm not reachable host: it's not possible ping it's ip address. what have achieved: installed virtualbox (5.1.24 r117012 (qt5.5.1)) , vagrant (1.9.7) onto ubuntu (16.04.2 lts) machine. provisioned vm vagrant up , vagrant finishes job , not complain. vagrant ssh works. i have manually installed lighttpd on guest vm , can ping/curl address: localhost within guest vm. this when trying reach guest vm host: ~/tmp/myfirstvagrantproject$ ping 172.22.22.22 ping 172.22.22.22 (172.22.22.22) 56(84) bytes of data. ... icmp_seq=4 destination net unreachable ... 171 packets transmitted, 0 received, +21 errors, 100% packet loss, time 173
Read more

c# - ASP.NET Core - There is already an object named 'AspNetRoles' in the database -

i'm receiving error applicationdbcontext database when trying update entity framework. i've googled, tried fixes here on so, no avail. i'm deleting database each time make change, once deploy, not option. here's error: pm> update-database -context applicationdbcontext system.data.sqlclient.sqlexception: there object named 'aspnetroles' in database. @ system.data.sqlclient.sqlconnection.onerror(sqlexception exception, boolean breakconnection, action 1 wrapcloseinaction) @ system.data.sqlclient.tdsparser.throwexceptionandwarning(tdsparserstateobject stateobj, boolean callerhasconnectionlock, boolean asyncclose) @ system.data.sqlclient.tdsparser.tryrun(runbehavior runbehavior, sqlcommand cmdhandler, sqldatareader datastream, bulkcopysimpleresultset bulkcopyhandler, tdsparserstateobject stateobj, boolean& dataready) @ system.data.sqlclient.sqlcommand.runexecutenonquerytds(string methodname, boolean async, int32 timeout, boolean
Read more

ruby on rails - ArgumentError: Missing host to link to! Please provide the :host parameter, set default_url_options[:host], or set :only_path to true -

i have built module in solidus , ruby on rails , try create tests. i trying create integration tests , have error: e error: prescriptionphotostest#test_/prescription_photos_post_endpoint_throws_an_error_when_wrong_params: argumenterror: missing host link to! please provide :host parameter, set default_url_options[:host], or set :only_path true test/integration/prescription_photos_test.rb:6:in `block in ' i read this , this , doesn't make difference. my code returning error on line: @user = factorygirl.create(:user) here code files. prescription_photos_rest.rb require 'test_helper' class prescriptionphotostest < actiondispatch::integrationtest setup spree::auth::config[:confirmable] = false @user = factorygirl.create(:user) end def authenticated_header token = knock::authtoken.new(payload: { sub: @user.id }).token { 'authorization': "bearer #{token}" } end test '/prescription_p
Read more