How to loop through same column on specific sheets in excel vba? -


hi stackoverflow community:

i'd loop through same column on 3 specific sheets in workbook. understand there needs along lines of code similar what's been posted here , here, can't seem them work , instead receive error '1004', "application-defined or object-defined error".

additional notes: entered "for each ws in workbook.sheets" after declarations, , "next" @ end before "end sub". tried processing code after "r=1" in code below , received same 1004 error. tried "next" after loop code , still looped through first sheet.

this code:

sub makewordlist() dim inputsheet worksheet dim wordlistsheet worksheet dim puncchars variant, x variant dim long, r long dim txt string dim wordcnt long dim allwords range dim pc pivotcache dim pt pivottable      application.screenupdating = false     set inputsheet = activesheet     set wordlistsheet = worksheets.add(after:=worksheets(sheets.count))     wordlistsheet.range("a1") = "all words"     wordlistsheet.range("a1").font.bold = true     inputsheet.activate     wordcnt = 2     puncchars = array(".", ",", ";", ":", "'", "!", "#", _         "$", "%", "&", "(", ")", " - ", "_", "--", "+", _         "=", "~", "/", "\", "{", "}", "[", "]", """", "?", "*")     r = 1   '   loop until blank cell encountered     while cells(r, 7) <> "" '       covert uppercase         txt = ucase(cells(r, 7)) '       remove punctuation         = 0 ubound(puncchars)             txt = replace(txt, puncchars(i), "")         next '       remove excess spaces         txt = worksheetfunction.trim(txt) '       extract words         x = split(txt)         = 0 ubound(x)             wordlistsheet.cells(wordcnt, 1) = x(i)             wordcnt = wordcnt + 1         next     r = r + 1     loop  '   create pivot table     wordlistsheet.activate     set allwords = range("a1").currentregion     set pc = activeworkbook.pivotcaches.add _         (sourcetype:=xldatabase, _         sourcedata:=allwords)     set pt = pc.createpivottable _         (tabledestination:=range("c1"), _         tablename:="pivottable1")     pt         .adddatafield .pivotfields("all words")         .pivotfields("all words").orientation = xlrowfield     end  end sub

is there way can loop through first 3 sheets or identify sheets want loop through? specifically, i'd loop through column g of each of first 3 sheets.

i'd this, haven't had chance test out may need tidying up.

dim lsheets(2)  lsheets(0) = "sheet1" lsheets(1) = "sheet2" lsheets(2) = "sheet3"      application.screenupdating = false      set wordlistsheet = worksheets.add(after:=worksheets(sheets.count))     wordlistsheet.range("a1") = "all words"     wordlistsheet.range("a1").font.bold = true  k = lbound(lsheets) ubound(lsheets)     set inputsheet = sheets(lsheets(k))      inputsheet.activate  'rest of code'      r = r + 1     loop  next k   '   create pivot table     wordlistsheet.activate  'rest of code'

Comments

Post a Comment

Popular posts from this blog

resizing Telegram inline keyboard -

telegram's inline keyboard great feature lots of different use cases. inline buttons added list of items this: inline_keyboard = [[inlinekeyboardbutton(text="button", callback_data="button"), inlinekeyboardbutton(text="reset",callback_data="reset")]] inline_keyboard_markup = inlinekeyboardmarkup(inline_keyboard) update.message.reply_text("hi", reply_markup=inline_keyboard_markup) the above code adds 2 buttons each half width of chat screen. i know the normal keyboard button there resize_keyboard parameter somehow can used. my question is there way resize inline buttons ? example make full width or quarter width. unfortunately, can't now. :( you can suggest @botsupport , might add feature next version.
Read more

command line - How can a Python program background itself? -

consider following python command-line program. doesn't work because incomplete, think illustrates problem: #!/usr/bin/python3 import multiprocessing pool = multiprocessing.pool() task in expensive_iterator_with_user_interaction(): pool.call_async(expensive_computation, (task,)) pool.close() print("dear user, may press ctrl-z , bg script.") pool.join() thus, problem scripts needs user input while it's launching expensive parallel processes. there moment when user interaction not needed anymore. then, ask user background process shell actions. however, can achieved program itself? (side note: core of problem entanglement of user input firing “expensive computations”. therefore, cannot separate both in 2 scripts, , letting 1 spawning other daemon.) the command screen may you. use screen -l create new session , run application. after inputting data, can press " ctrl-a " , press " d " on keyboard detach session. now...
Read more

php - "cURL error 28: Resolving timed out" on Wordpress on Azure App Service on Linux -

Image
my wordpress installation on azure app service on linux using custom docker container has slow response times. pages take around 20-40 seconds load. i have troubleshooting plugin installed indicates problem "curl error 28: resolving timed out after n milliseconds" when making requests following urls https://api.wordpress.org/core/version-check/1.7/ http://api.wordpress.org/core/version-check/1.7/ https://api.wordpress.org/plugins/update-check/1.1/ http://api.wordpress.org/plugins/update-check/1.1/ https://api.wordpress.org/themes/update-check/1.1/ http://api.wordpress.org/themes/update-check/1.1/ curl works fine on scm-site command line. example works ok. curl -x post http://api.wordpress.org/core/version-check/1.7/ edit if ssh container , run php code, works fine. <?php $url = 'http://api.wordpress.org/core/version-check/1.7/'; $fields = array( 'version' => urlencode('4.8.1'), 'php' => urlencode(...
Read more