vba - Calling Subroutines and values in a User Defined Function (Excel) -

-


vba - Calling Subroutines and values in a User Defined Function (Excel) -

i grateful if help in simple solution. below have short code user defined function in excel. naming columns (in big spreadsheet) to calculate in sumifs calculation. if want have same columns named , utilize variables writeoff1 , writeoff" in user defined function, how can that? have tried set names of column in subroutine (in same vba project , module) , tried phone call subroutine, looks can not pass names function.

can help solution?

many in advance.

public function writeoff(rev_date variant) variant application.volatile (true) set order_type = sheets("kronos").range("$d:$d") set final_price = sheets("kronos").range("$h:$h") set paidalt = sheets("kronos").range("$i:$i") set excl_rev = sheets("kronos").range("$k:$k") set pamount1 = sheets("kronos").range("$o:$o") set first_pd = sheets("kronos").range("$q:$q") set pmethod1 = sheets("kronos").range("$r:$r") set pamount2 = sheets("kronos").range("$t:$t") set paydate2 = sheets("kronos").range("$v:$v") set pmethod2 = sheets("kronos").range("$w:$w") set pamount3 = sheets("kronos").range("$y:$y") set paydate3 = sheets("kronos").range("$aa:$aa") set pmethod3 = sheets("kronos").range("$ab:$ab") set pamount4 = sheets("kronos").range("$ad:$ad") set paydate4 = sheets("kronos").range("$af:$af") set pmethod4 = sheets("kronos").range("$ag:$ag") set vstatus = sheets("kronos").range("$dl:$dl") set team = sheets("kronos").range("$do:$do") writeoff1 = application.worksheetfunction.sumifs( _ pamount1 _ , team, "<>9" _ , vstatus, "<>rejected", vstatus, "<>unverified" _ , first_pd, rev_date _ , pmethod1, "write off") writeoff2 = application.worksheetfunction.sumifs( _ pamount2 _ , team, "<>9" _ , vstatus, "<>rejected", vstatus, "<>unverified" _ , paydate2, rev_date _ , pmethod2, "write off") writeoff3 = application.worksheetfunction.sumifs( _ pamount3 _ , team, "<>9" _ , vstatus, "<>rejected", vstatus, "<>unverified" _ , paydate3, rev_date _ , pmethod3, "write off") writeoff4 = application.worksheetfunction.sumifs( _ pamount4 _ , team, "<>9" _ , vstatus, "<>rejected", vstatus, "<>unverified" _ , paydate4, rev_date _ , pmethod4, "write off") writeoff = writeoff1 + writeoff2 + writeoff3 + writeoff4 end function

you should create these named ranges, preserve them across functions expose them ranges can work straight on worksheet.

insert named ranges formula ribbon, name manager, new:

in vba, refer them like:

x = application.worksheetfunction.sum(order_type)

on worksheet, can refer them in cell:

=(sum(order_type)) or =vlookup("steve",order_type,2,false), etc.

if prefer not utilize named ranges, set variables public, then, within function, phone call on subroutine assign ranges:

public order_type range public final_price range function myfunction() 'call procedure set public variables setpublicvars 'perform function myfunction = application.worksheetfunction.sum(order_type) end function private sub setpublicvars() set order_type = sheets(1).range("d:d") set final_price = sheets(1).range("h:h") end sub

excel vba user-defined-functions

Comments

Post a Comment

Popular posts from this blog

How do I check if an insert was successful with MySQLdb in Python? -

-
How do I check if an insert was successful with MySQLdb in Python? - i have code: cursor = conn.cursor() cursor.execute(("insert new_files (videos_id, filename, " "is_processing) values (%s,%s,1)"), (id, filename)) logging.warn("%d", cursor.rowcount) if (cursor.rowcount == 1): logging.info("inserted values %d, %s", id, filename) else: logging.warn("failed insert values %d, %s", id, filename) cursor.close() fun is, cursor.rowcount always one, though updated database create videos_id unique key. is, insert fails because in tests same videos_id going appear (and when check database, nil inserted). whatever reason, rowcount 1 - logging.warn have spits out rowcount of 1. so, question: can utilize rowcount work out if insert went fine? if so, (presumably) doing wrong? otherwise, how check if insert went fine? your code not commit after modifications (your modifications rolled back). should...
Read more

delphi - blogger via idHTTP : error 400 bad request -

-
delphi - blogger via idHTTP : error 400 bad request - i'm trying post blogger using idhttp component, however, i'm getting "http/1.0 400 bad request" error. procedure tform1.button1click(sender: tobject); var request,response,req : tstringlist; auth,blogid : string; begin blogid := '00000000000000000000000'; request := tstringlist.create; response := tstringlist.create; req := tstringlist.create; idhttp1.request.connection := 'keep-alive'; idhttp1.request.contenttype := 'application/x-www-form-urlencoded'; idssliohandlersocket1.ssloptions.method := sslvsslv23; request.clear(); request.values['accounttype'] := 'google'; request.values['email'] := 'xxx@gmail.com'; request.values['passwd'] := 'yyy'; request.values['service'] := 'blogger'; response.text :=idhttp1.post('https://www.google.com/accounts/clientlogin',request); auth := resp...
Read more

postgresql - ERROR: operator is not unique: unknown + unknown -

-
postgresql - ERROR: operator is not unique: unknown + unknown - i have postgis database , have compute new values rows in new column. these values should average of values of several columns. query: insert bdps (da_m) values (avg('da_1'+'da_2'+'da_3'+'da_4'+'da_5'+'da_6'+'da_7')); in query bdps database, da_m new column , da_1 da_7 existing columns have double precision type. da_m created using alter table bdps add together column da_m double precision; i next error: error: operator not unique: unknown + unknown line 2: values (avg('da_1'+'da_2'+'da_3'+'da_4'+'da_5'+'da_6'+'da_7... ^ hint: not take best candidate operator. might need add together explicit type casts. ********** error ********** error: operator not unique: unknown + unknown sql state: 42725 hint: not take best candidate operator. might need add togethe...
Read more