string - Loop through the workbook but exclude some worksheets? -


this question has been asked around net several times without comprehensive program in within macro. have data on sheets need analyse data more on separate 'analysis sheets'. believe problem may thisworkbook.sheets("sh") function gives off subscript out of range error.

below code, respond changes make make code work!

sub excludesheet()     dim sh worksheet     const excludesheets string = "1-analysis,2-analysis"     'assigns worksheet object sh variable     each sh in thisworkbook.worksheets         if iserror(application.match(sh.name, split(excludesheets, ",")))         'this analysis worksheets         range("$a$1").value = "analysis"         else:             'data sheets             columns("a:m").autofit             lr = cells(rows.count, "a").end(xlup).row             = lr 2 step -1                 if cells(i, "e").text = "n/a" rows(i).entirerow.delete             next              lastr = cells(rows.count, "a").end(xlup).row             dim strformulas(1 3) variant              thisworkbook.sheets("sh")                 strformulas(1) = "=(e2-$e$2)"                 strformulas(2) = "=(g2-$g$2)"                 strformulas(3) = "=h2+i2"                  range("h2:j2").formula = strformulas                 range("h2:j" & lastr).filldown             end         end if     next end sub

to further clarify comment, work on objects directly.
check out various ways on how you'll that.

now try refactored code of yours:

sub excludesheet()     dim sh worksheet     'const excludesheets string = "1-analysis,2-analysis"     dim excludesheets: excludesheets = array("1-analysis", "2-analysis")     each sh in thisworkbook.worksheets         sh 'you have sheet object, work             if not iserror(application.match(.name, excludesheets, 0))                 'this analysis worksheets                 .range("$a$1").value = "analysis"             else                 'data sheets                 .columns("a:m").autofit                 lr = .cells(.rows.count, "a").end(xlup).row                  = lr 2 step -1                     if .cells(i, "e").text = "n/a" .rows(i).entirerow.delete                 next                  lastr = .cells(.rows.count, "a").end(xlup).row                 dim strformulas(1 3) variant                  strformulas(1) = "=(e2-$e$2)"                 strformulas(2) = "=(g2-$g$2)"                 strformulas(3) = "=h2+i2"                  .range("h2:j2").formula = strformulas                 .range("h2:j" & lastr).filldown             end if         end     next end sub

Comments

Post a Comment

Popular posts from this blog

jquery - How do you format the date used in the popover widget title of FullCalendar? -

Image
in fullcalendar, how format date used in popover widget title when clicking '+n more'? code: <div class="fc-popover fc-more-popover"> <div class="fc-header fc-widget-header"> <span class="fc-close fc-icon fc-icon-x"></span> <span class="fc-title">tuesday, april 7</span> ... </div> ... </div> you use daypopoverformat that. determines date format of title of popover created eventlimitclick option. must date formatting string. default value "dddd, mmmm d" english , "ll" other languages.
Read more

Bubble Sort Manually a Linked List in Java -

Image
this first question here. trying manually sort linked list of integers in java , can not figure out wrong code. suggestions? don't error, still have output unordered. tried few different ways, nothing worked. appreciate if can me that. public class node { int data; node nextnode; public node(int data) { this.data = data; this.nextnode = null; } public int getdata() { return this.data; } } // node class public class datalinkedlist implements datainterface { private node head; private int size; public datalinkedlist(){ this.head = null; this.size = 0; } public void add(int data) { node node = new node(data); if (head == null) { head = node; } else { node currentnode = head; while(currentnode.nextnode != null) { currentnode = currentnode.nextnode; } currentnode.nextnode = node; ...
Read more

asp.net mvc - SSO between MVCForum and Umbraco7 -

i need integrate sso between mvcforum (forum of company) , umbraco7 (manages cms company). however struggling shared authentication work. tried several ways suggested on other threads still not running expected. here did: 1. in mvcforum (forum.mywebsite.com) 1.1. machine key in web.xml: <machinekey validationkey="the same key umbraco7" decryptionkey="the same key umbraco7" validation="sha1" decryption="aes" /> 1.2. authenticate forms in web.xml <forms name="my-sso-auth" protection="all" path="/" timeout="43200" domain="forum.mywebsite.com" loginurl="/members/logon" enablecrossappredirects="true" /> 2. in umbraco7 (news.mywebsite.com) 2.1. machine key in web.xml: <machinekey validationkey="the same key mvcforum" decryptionkey="the same key mvcforum" validation="sha1" decryption="aes" /> 2.2. a...
Read more