excel - Running out of VBA Memory -


im running code below, want to. issue having though when keep sheet running period of time 10 min pop error message saying have run out of memory.

is there put in code use prevent this?

my code below,

sub auto_open()     call schedulecopypriceover end sub   sub schedulecopypriceover()     timetorun = + timevalue("00:00:10")     application.ontime timetorun, "copypriceover" end sub  sub copypriceover() dim lrow    long dim ws      worksheet  set ws = thisworkbook.sheets("orders")   application.screenupdating = false        srow = 1 5000     if ws.cells(srow, 19) = srow         ws.cells(srow, 12).select         activecell.formular1c1 = "ready"         call schedulecopypriceover       elseif ws.cells(srow, 20) = srow         ws.cells(srow, 12).select         activecell.formular1c1 = "cancel"       end if     next      call schedulecopypriceover    end sub  sub auto_close()     on error resume next     application.ontime timetorun, "copypriceover", , false end sub

your overflow being caused many scheduled events.

in loop, scheduling ontime if row has row number value in column s. scheduling 1 more ontime if no rows have row number in column s.

so, if 200 of 5000 rows have matching value, setting 201 scheduled calls macro in 10 seconds time. when 201 events fire, might (depending on has happened within 10 seconds) generate 40000+ events. (even if there one row column s's value matching row number, after 10 minutes end on 1,000,000,000,000,000,000 events being queued.)

there no need reschedule copypriceover code more once, remove call schedulecopypriceover within loop.

for srow = 1 5000     if ws.cells(srow, 19).value = srow          ws.cells(srow, 12).formular1c1 = "ready"         'get rid of next line         'call schedulecopypriceover      elseif ws.cells(srow, 20).value = srow          ws.cells(srow, 12).formular1c1 = "cancel"      end if next  call schedulecopypriceover

Comments

Post a Comment

Popular posts from this blog

Command prompt result in label. Python 2.7 -

i want put result(output) of shell command label. command works, label shows "0", however, in command prompt, result shown correctly, need showed in label. doing ubuntu. myg1 = button(root, text="rodyti informacija", command=lambda: gauti()) myg1.pack(side=bottom) def gauti(): imti = tekstas.get("1.0", "end-1c") info = subprocess.call("id '{imti}' ".format(imti=imti), shell=true) w = label(root, text= info) w.pack(side = bottom) subprocess.call() returns exit code of process created (in case 0 success). if want text output of process, should instead call subprocess.check_output() .
Read more

javascript - How do I use URL parameters to change link href on page? -

i change href value of link using url parameters. example: default <a id="dlink" href="link-1">link</a> but, when user goes https://url.com/?dlink=link-2 it swaps out link new link <a id="dlink" href="link-2">link</a> first need value url. if you're not using javascript framework can create function using jquery. please check get url parameter jquery or how query string values in js it. after that, element "a" id , set value there. $("#dlink").attr("href", hreffromparam);
Read more

amazon web services - AWS Route53 Trying To Get Site To Resolve To www -

so have domain nameservers pointed aws route 53. site hosted on ec2 instance , reachable resolves site.com, if input www.site.com. i'm curious how site resolve www.site.com. have under route53 domains hosted zone 2 additional record sets outside of ns , soa: a site.com ec2 elastic ip cname www.site.com ec2 public dns i can reach site using both site.com , www.site.com, resolve site.com. there way make if enter either, resolves www.site.com? at first, both should record set. a site.com ec2 elastic ip www.site.com ec2 elastic ip and need redirect setting in web server (nginx, apache, ..) following. (source: how redirect www non-www nginx on centos 7 ) redirect non-www www if want redirect users plain, non-www domain www domain, add server block: server { server_name example.com; return 301 $scheme://www.example.com$request_uri; } save , exit. configures nginx redirect requests "example.com" "www.example.com". not...
Read more