vba - Need a loop to enter formulas/data in excel table columns -


i in need of nested loop add formulas 4 particular columns in table ("table1"). loop mimic previous loop regarding naming of these same 4 additional columns ("colnames").

the bottom portion of code works fine, know how work loop. 

sub attstatpivinserttablecolumns_2() dim lst listobject dim currentsht worksheet dim colnames variant, formnames variant '<~~ note: varient, go when working arrays dim olc listcolumn, oldata variant dim integer, d integer  set currentsht = activeworkbook.sheets("sheet1") set lst = activesheet.listobjects("table1")  colnames = array("aht", "target aht", "transfers", "target transfers")      = 0 ubound(colnames)          set olc = lst.listcolumns.add         olc.name = colnames(i)     next           ***below code needs looped***                                 'lst.listcolumns("target aht").databodyrange.formular1c1 = "=350" 'lst.listcolumns("target transfers").databodyrange.formular1c1 = "=0.15" 'lst.listcolumns("aht").databodyrange.formular1c1 = "=([@[inbound talk time (seconds)]]+[@[inbound hold time (seconds)]]+[@[inbound wrap time (seconds)]])/[@[calls handled]]" 'lst.listcolumns("transfers").databodyrange.formular1c1 = "=[@[call transfers and/or conferences]]/[@[calls handled]]"  end sub

here going far, running errors, obvious reasons:

formnames = array("=([@[inbound talk time (seconds)]]+[@[inbound hold time (seconds)]]+[@[inbound wrap time (seconds)]])/[@[calls handled]]", "=350", "=[@[call transfers and/or conferences]]/[@[calls handled]]", "=0.15") d = 0 ubound(formnames)     = 0 ubound(colnames)         set oldata = lst.listcolumns(i).databodyrange.formular1c1 = "d"     next next d

construct 1 more variant array containing formulas/values want populate new table columns with.

sub inserttablecolumn()     dim lst listobject     dim currentsht worksheet     dim h long, hdrs variant, r1c1s variant      hdrs = array("aht", "target aht", "transfers", "target transfers")     r1c1s = array("=([@[inbound talk time (seconds)]]+[@[inbound hold time (seconds)]]+[@[inbound wrap time (seconds)]])/[@[calls handled]]", _                     350, _                     "=[@[call transfers and/or conferences]]/[@[calls handled]]", _                     0.15)      set currentsht = activeworkbook.sheets("sheet1")     set lst = activesheet.listobjects("table1")      lst 'activesheet.listobjects("table1")         h = lbound(hdrs) ubound(hdrs)             .listcolumns.add             .listcolumns(.listcolumns.count).name = hdrs(h)             .listcolumns(.listcolumns.count).databodyrange.formular1c1 = r1c1s(h)         next h     end  end sub

i've used pairs in single array h = lbound(hdrs) ubound(hdrs) step 2 , hdrs(h+1) formulas/values.


-

Popular posts from this blog

php - How should I create my API for mobile applications (Needs Authentication) -

background so i've been researching quite bit past week api's , have been reading concepts , programming one. currently have website programmed in php using popular framework called laravel. website has user database , users able log dashboard on website, works want website side. now next project of business i'm focusing on creating mobile applications (ios & andriod).what need these mobile applications being able login through application ui (not being redirected site callback url) able view , manage dashboard. the method of authentication , authorization want use application go like client asks user login through ui user enters credentials client sends request login api the api checks if credentials correct api creates token stored in token database linked user id api returns 200 ok json response or this { "token" : "ols25usjiay81hdy81", "expiry" : 3/06/2016 14:00} client remembers token , expiry whenever user/c
Read more

5 Reasons to Blog Anonymously (and 5 Reasons Not To)

Image
This guest post is by Phil (not his real name) of somehighschoolblog . It used to be impossible to run a business anonymously. Sure, some authors could pull it off, but if you worked at an office, what were you supposed to do? Go to work with a bag over your head? But today anyone can accomplish this, because anyone can author a blog (and you thought I was going to tell you to work with a mask on, or something). Copyright Ovidiu Iordachi - Fotolia.com Depending on your motives, you may or may not have considered blogging anonymously. You probably didn’t contemplate blogging anonymously if: • your only motivation is to become “famous” • your blog connects to another part of your life • you are blogging to build more connections with your friends or boss. You should consider blogging anonymously if: • you’re planning on touching on a sensitive or taboo subject • you don’t want to be identified with your blog • you are worried about negative real-world consequences that could arise from y
Read more

Google AdWords and AdSense - A Dynamic Small Business Marketing Duo

Unless you have been living under a rock for the last year or so, you probably know that Google has become the king of the search engine hill. There are many reasons for this but number one in my opinion is that above all else they put value on content. Today I want to introduce you to two very powerful small business advertising options created by Google. These two ingenious programs have all but revolutionized the way advertising is done on the web. Warning: If you are thinking..."web advertising isn't for me, I just need a few more clients around the block"...you better read this or be prepared to have your competitors eat your lunch. Goolge AdSense - Again content is king at Google. This program allows web site "publishers" to add some code from Google and receive "content relevant" ads on their site from other site owners. Here is an example - those ads in the box on the right of the page are delivered by Google and are matched to the content
Read more