excel - How to loop through rows, save these as variables and use them as variables VBA -


i'm trying store values in sheets variable, , go on reference sheet using variable use filter by.

this looped through until program reaches first empty cell.

the relevant code have far is:

sub program()  dim integer = 2  until isempty(cells(i, 1)) debug.print     sheets("button").activate         dim first string         first = cells(i, 1).value         debug.print first          dim second string         second = cells(i, 2).value         debug.print second       'filters data sheet , copies data      sheets("data").activate     sheets("data").range("a1").autofilter _         field:=2, _         criteria1:=first 'filters relevant organisation     sheets("data").range("a1").autofilter _         field:=6, _         criteria1:="=" 'filters no response      sheets("data").range("a1:h6040").copy      'this should loop through each separate group      sheets(cstr(second)).select     range("a1").select         activesheet.paste         selection.pastespecial paste:=xlpastevalues, operation:=xlnone, skipblanks _             :=false, transpose:=false  = + 1 loop  worksheets("data").autofiltermode = false  end sub

i have changed program trying add notation such 'cstr' there error @ line: sheets(cstr(second)).select when used sheets(second)).select

and debug.print's see if working isn't logging immediate window.

additionally, when run it, no error comes nothing seems happen.

not sure else add, or else try. cheers!

as first remark, using (at least first) sheet activation within loop seems unnecessary, because start of loop determines sheet being used control flow of loop.

furthermore, argue better remove sheet activation altogether, re: discussion .select (the cases aren't same, solution discussed herein works better both .select , .activate in instances): how avoid using select in excel vba macros.

let's see if can refer table in "data" sheet in more direct manner, errorchecking.

my suggestion:

sub program()  dim integer dim first, second string dim secondws worksheet dim datatbl listobject  = 2 set datatbl = worksheets("data").range("a1").listobject.name  ' above can done more elegantly if supply name of table  sheets("data").activate  until isempty(cells(i, 1)) debug.print         first = sheets("button").cells(i, 1).value         debug.print first          second = sheets("button").cells(i, 2).value         debug.print second       'filters data sheet , copies data      datatbl.autofilter _         field:=2, _         criteria1:=first 'filters relevant organisation     datatbl.autofilter _         field:=6, _         criteria1:="=" 'filters no response      sheets("data").range("a1:h6040").copy      'this should loop through each separate group      on error resume next     set secondws = worksheets(second)     on error goto 0      if not secondws nothing         secondws.range("a1").pastespecial paste:=xlpastevalues     else         debug.print "sheet name second not found"     end if  = + 1 loop  worksheets("data").autofiltermode = false  end sub

if errors, please state line appears on , error message is.

ref: http://www.mrexcel.com/forum/excel-questions/3228-visual-basic-applications-check-if-worksheet-exists.html#post13739


Comments

Post a Comment

Popular posts from this blog

javascript - jQuery: Add class depending on URL in the best way -

i have html progress meter: <div class="col-md-3" style="margin-left: -20px;"> <div class="progress-pos active" id="progess-1"> <div class="progress-pos-inner"> login </div> </div> </div> <div class="col-md-3 progress-pos-container"> <div class="progress-pos" id="progess-2"> <div class="progress-pos-inner"> scan items </div> </div> </div> <div class="col-md-3 progress-pos-container"> <div class="progress-pos" id="progess-3"> <div class="progress-pos-inner"> confirm address </div> </div> </div> <div class="col-md-3 progress-pos-container"> <div class="progress-pos" id="progess-4"> <div class="progress-pos-in
Read more

caching - How to check if a url path exists in the service worker cache -

i need check if particular url path exists in service worker cache. example, suppose url is: /myserviceworker/service?a=110&b=70 this url exists in cache, there many of them different values of , b. now, suppose want refresh of these urls, how can that? i want know how access key values service worker cache. if know key, plan follows: var url = new url(key); if(url.pathname === "\/myserviceworker/service") refetch key but not sure how cache key , in format is. mean, string or url? cache api has match() method returns promise resolving in response object if match or undefined if no match exists. second parameter object can specify ignoresearch not take account url parameters. the ignoresearch option supported firefox ( chrome status here ). in other hand, retrieve cache entries, can use keys() method.
Read more

Redirect to a HTTPS version using .htaccess -

i need modify .htaccess file redirect urls https version without "www". http://example.com --> https://example.com http://www.example.com --> https://example.com https://www.example.com --> https://example.com this how .htaccess file looks like: rewriteengine on rewritecond %{request_filename} !-d rewritecond %{request_filename} !-f rewriterule ^(.*)$ redirect.php?id=$1&page=$2 [qsa,l] what modifications need make .htaccess in order forward https without "www"? it depends on doing current code. looks file called redirect trying display php page seo friendly url. think might confusing people. anyway, need , force https without www, need 1 more rule above. also second rule needs two capture groups in rewriterule test string because wanting 2 different values using $1 , $2 references. rewriteengine on #rediect www non www and/or http https --- combinations. rewritecond %{http_host} !^example\.com [nc,or] rewritecond %{https} !^
Read more