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&quo
Read more

javascript - Highcharts multi-color line -

Image
i looking create highchart multi-colored line. if goes down under value, become red, , when comes on value, become green . here picture example: or maybe highcharts have other charts models differentiate high or low level color? you can achieve coloring using lineargradient coloring: color: { lineargradient: { x1: 0, x2: 0, y1: 0, y2: 1 }, stops: [ [0, 'red'], [0.25, 'yellow'], [0.50, 'green'], [0.75, 'yellow'], [1, 'red'] ] } here 0 in stops relates minimum value of series , 1 maximum value, , in between percentages between values. if find percentages according values prior creating chart use correct stops values make relate specific values in data (at least approximately). see this jsfiddle example .
Read more

javascript - Enter key does not work in search box -

tried search guys sorry. input in search box doesnt work (or search) when hit enter when user clicks search button. doing wrong? here code. thanks. <script type="text/javascript"> $(document).ready(function() { $("#submit").click(function() { var url = "http://asla.org/awardssearch.html"; url += "?s=" + $('#googlecse').val(); window.location = url; }); $('#googlecse').keydown(function(event) { if (event.keycode == '13') { $("#submit").click(); } else { //do nothing :) } }); }); </script> <form class="navbar-form navbar-right" role="search"> <div class="search"> <input id="googlecse" type="text" onblur="if(this.value=='')this.value=this.defaultvalue;" onfocus="if(this.value==this.defaultvalue)t
Read more