excel - how to change output location for each loop and run multiple loops -


i have code here loops through list of files; opening them, extracting data , moving main workbook. looking data abel in columns c , d put varo in f , g etc. problem see placement code inside loop each write on previous line instead of being in different column together!

sub source_data()  dim r dim findvalues() string dim wrbk workbook dim workbook dim sht worksheet dim dim tmp dim counter dim c range dim firstaddress dim rng range  redim findvalues(1 3) findvalues(1) = "abel" findvalues(2) = "varo" findvalues(3) = "tiger"  counter = 0  r = range("a1").end(xldown).row set rng = range(cells(1, 1), cells(r, 1)) set = thisworkbook  each tmp in rng     workbooks.open tmp     set wrbk = activeworkbook     set sht = activesheet         = 1 3             sht.range(cells(1, 1), range("a1").specialcells(xlcelltypelastcell))             set c = .find(findvalues(i), lookin:=xlvalues)                 if not c nothing                     firstaddress = c.offset(0, 2).value                                             this.activate                         tmp.offset(0, 2).value = tmp.value                         tmp.offset(0, 3).value = firstaddress                         set c = .findnext(c)                         counter = counter + 1                     loop while not c nothing , c.value = firstaddress                 end if             end         wrbk.activate         next     wrbk.close next tmp end sub

**edit:**i know can done adding multiplier of "i" offset value makes things bigger need if wish search 50 keywords

here answer, hope you, , always, if need improvement, tell me. 

sub source_data() dim r dim findvalues() string dim wrbk workbook dim workbook dim sht worksheet dim dim tmp dim counter dim c range dim firstaddress dim rng range dim colnum 'the columns number var  redim findvalues(1 3) findvalues(1) = "abel" findvalues(2) = "varo" findvalues(3) = "tiger"  counter = 0  r = range("a1").end(xldown).row set rng = range(cells(1, 1), cells(r, 1)) set = thisworkbook  each tmp in rng     workbooks.open tmp     set wrbk = activeworkbook     set sht = activesheet         = 1 3             sht.range(cells(1, 1), range("a1").specialcells(xlcelltypelastcell))             set c = .find(findvalues(i), lookin:=xlvalues)                 if not c nothing                     firstaddress = c.offset(0, 2).value                                             this.activate                         select case 'test var (the value)                             case "abel" 'in case value (that string) equal to...                                 colnum = 1 'set var, number of column want                             case "varo" 'in case value...                                 colnum = 2 'set column...                             case "tiger"                                 colnum = 3                             case else 'in case var not match anyvalue take column number                                 colnum = 20 'the garbage!                         end select                          tmp.offset(0, colnum).value = tmp.value 'put value in selected columns                         tmp.offset(0, colnum + 1).value = firstaddress 'and put value next column of                                                                        'selected column                         set c = .findnext(c)                         counter = counter + 1                     loop while not c nothing , c.value = firstaddress                 end if             end         wrbk.activate         next     wrbk.close next tmp end sub

note: need set colnum var values need, put there numbers of columns need store value of i , next line put address of i var


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