excel - Copying worksheets using dynamic array -


i want copy worksheets in new file. every file should saved per country - thing have different worksheets (clients) per country , list might change in future. created list able edit code in future, of course listed in excel worsheet:

sales org     tabs  be01          albro  dk01          stockmann", "mister", "ginsborg  it01          la rinascente", "arcobaleno

in column "tabs" listed sheets want copied per file , sales organization represents file name.

my code works in case of be01, when comes dk01 receive "subscript out of range" error...

can 1 tell me how fix this?

    sub savefile() ' dim savefolder string dim filetype string dim filename string dim lastrow integer dim name string dim eufile string dim todaydate string dim list string   lastrow = sheets("macro control").range("a1048576").end(xlup).row savefolder = sheets("macro control").range("d2") filetype = sheets("macro control").range("e2") filename = sheets("macro control").range("f2")  todaydate = format(date, "dd.mm.yyyy")      dim array_db() string    redim array_db(lastrow - 2, 1)       row_number = 2 lastrow      array_db(row_number - 2, 0) = sheets("macro control").range("a" & row_number)     array_db(row_number - 2, 1) = sheets("macro control").range("b" & row_number)   next      = 0 ubound(array_db)              list = array_db(i, 1)         sheets(array(list)).copy     name = array_db(i, 0)        eufile = savefolder & "\" & filename & " " & todaydate & " " & name & filetype       activeworkbook.saveas filename:=eufile    activeworkbook.close      next   end sub

you can use following pattern select multiple sheets dynamically:

dim sheetnames, long  sheetnames = split("sheet1|sheet2|sheet3", "|") worksheets(sheetnames(0)).select  = lbound(sheetnames) + 1 ubound(sheetnames)     worksheets(sheetnames(i)).select false next

in other words, change column b sheet names separated suitable character, example pipe character ("|") , use above. worksheet.select method has option paramater named "replace", , setting false means sheet selected in addition selected sheet.

edit:

by way, don't have read cell values array 1 one. can in 1 step using variant array:

dim array_db() variant  array_db = sheets("macro control").range("a2").resize(lastrow-1,2).value

it advisable specify dimension's ubound get: ubound(array_db,1). code works because finds first dimension's ubound default, not ubound want.


Comments

Post a Comment

Popular posts from this blog

javascript - Jquery show_hide, what to add in order to make the page scroll to the bottom of the hidden field once button is clicked -

i have button on website when clicked, reveals map. button can seen when page first loads up, when clicked, section holding map slides open , goes out of screen since page loads @ top (normal). want page scroll down bottom of div select when button pushed, if map out of screen. if page scrolled down, , clicks show map button, don't want page jump bottom of map. i tried figure out myself, no luck. seasoned jquery coders able give me guidance? many thanks! map = mapdiv.gmap3("get"); infobox = new infobox({ pixeloffset: new google.maps.size(-220, -310), closeboxurl: '', enableeventpropagation: true }); mapdiv.delegate('.infobox .close','click',function () { infobox.close(); }); jquery(".slidingdiv").hide(); jquery(".show_hide").show(); jquery('.show_hide').click(function(){ lastcenter=map.getcenter(); jquery(".slidingdiv...
Read more

python - Django-cities exits with "killed" -

i trying install django-cities on server 500mb ram. whenever run: manage.py cities the system exits saying killed. trying run: manage.py cities --import=country --force worked, guessing matter of running out of memory. to bypass, tried refer package local copy of cities' data file. still didn't work. any ideas on how can migrate data without having increase memory on server? based on suggestion comments, solved setting temporary swap file. if unfamiliar it, can follow these steps: set swap file touch /var/swap.img chmod 600 /var/swap.img set swap file size cd /var dd if=/dev/zero of=/var/swap.img bs=1024k count=1000 this create 1gb swap file. prepare disk image mkswap /var/swap.img activate swap memory swapon /var/swap.img once done, can turn off swap image: swapoff /var/swap.img more information on virtual memory , swap files can found here: https://www.digitalocean.com/community/tutorials/how-to-configure-virtual-me...
Read more

python - How to get a widget position inside it's layout in Kivy? -

i have gridlayout , added image widgets on after adding of images want draw rectangle in each image using canvas couldn't because don't know exact image widgets positions on gridlayout. code: http://paste.ofcode.org/3bdp9yhjrcrzmsztbu9hqp4 http://paste.ofcode.org/3az3gx4fxzr9dlhe2ami97c in last line of python code : rectangle(pos = (child.x - 2.4, child.y + 467), size = (70, 70)) how draw rectangle in child(my method not good^), also why gridlayout not coming in center after setting it's pos_hint = {"center_x" : .5}? if understand question right, try use such methods to_local() , to_parent() , to_widget() , to_window() . try substract position of gridlayout widgets' positions.
Read more