Excel 2010: Best use of CASE or IF to define SAVEAS location (VBA) -


program: excel 2010
experience: basic

question
wanting save workbook sheet (and generated .pdf) in locations dependent on cell value, rather writing 5 subs, i want write 1 using either if or case. have static save location (dropbox), need save duplicates in respective cell locations.

i can't syntax correct either working. 

sub savemanid()     dim sdb string     dim smdocs string     dim smbus string     dim sname string     dim ssel string     dim sman string      'define file name     sname = sheets("statement").range("b52").text      'define location name     sdb = "e:\location dropbox\"     smdocs = "d:\my documents\"     smbus = "d:\location alt\"      '---- either if or case define saveas location ----'       if sheets("statement").range("j2").text = "3"         sman = "g:\location\folder3\"      if sheets("statement").range("j2").text = "4"         sman = "g:\location\folder4\"      '---- end ----'         activeworkbook.saveas filename:=sman & sname & format(date, "yyyymmdd") & ".xls",_        fileformat:=52, readonlyrecommended:=false, createbackup:=false          sheets("statement").range("a1:g49").exportasfixedformat type:=xltypepdf, filename:=sman & sname & ".pdf", _         quality:=xlqualitystandard, includedocproperties:=true, ignoreprintareas:=false, openafterpublish:=true           end if     end if end sub

i need range("j2") define location cell value & need create name based on cell value.

the sub runs fine if exclude if, means have have code duplicated , button assigned each value.

to clarify - cell value range("j2") determine file saves to, in example above in if statement, not work.

to fix have written try moving end if before common code this:

if sheets("statement").range("j2").text = "3"     sman = "g:\location\folder3\" end if  if sheets("statement").range("j2").text = "4"     sman = "g:\location\folder4\" end if  activeworkbook.saveas filename:=sman & sname & format(date, "yyyymmdd") & ".xls",_    fileformat:=52, readonlyrecommended:=false, createbackup:=false      sheets("statement").range("a1:g49").exportasfixedformat type:=xltypepdf, filename:=sman & sname & ".pdf", _     quality:=xlqualitystandard, includedocproperties:=true, ignoreprintareas:=false, openafterpublish:=true

or this:

if sheets("statement").range("j2").text = "3"     sman = "g:\location\folder3\" elseif sheets("statement").range("j2").text = "4"     sman = "g:\location\folder4\" end if

or this:

myval = sheets("statement").range("j2").text if myval = "3"     sman = "g:\location\folder3\" elseif myval = "4"     sman = "g:\location\folder4\" end if

to use select case re-write this:

select case sheets("statement").range("j2").text       case "3"            sman = "g:\location\folder3\"        case "4"            sman = "g:\location\folder4\"        case else            'set sman default dropbox location here end select

Comments

Post a Comment

Popular posts from this blog

android - Get AccessToken using signpost OAuth without opening a browser (Two legged Oauth) -

i using signpost oauth access data magento server. have read various tutorials on same , reach point open browser user can enter credentials. however, per requirement have automate part. hence, user should not browser page. have set-up done on server side ( magento ), hit url , returned call page. same through program in android. i have tried below, consumer = new commonshttpoauthconsumer(key, secret); provider = new commonshttpoauthprovider(oauth_init_url,access_token_url, authorize_url); try { provider.retrieverequesttoken(consumer, oauth.out_of_band); log.d("tokens" , consumer.gettoken() + " -- " + consumer.gettokensecret()); } and request tokens. dont know how bypass next step. tried directly accessing accesstoken (stupid of me) provider.retrieveaccesstoken(consumer, "mycallback://callback"); no luck, ends in oauth.signpost.exception.oauthnotauthorizedexception: authorization failed (server replied 401). ...
Read more

org.mockito.exceptions.misusing.InvalidUseOfMatchersException: mockito -

getting error org.mockito.exceptions.misusing.invaliduseofmatchersexception: invalid use of argument matchers! 1 matchers expected, 2 recorded. exception may occur if matchers combined raw values: //incorrect: somemethod(anyobject(), "raw string"); when using matchers, arguments have provided matchers. example: //correct: somemethod(anyobject(), eq("string matcher")); at when( getprogramservice .callservice(any(getprogramtype.class))) .thenreturn(jaxbresponse); please explain error , possible resolution the code posted looks fine; don't see problem it. code before or above causing exception. key here: invalid use of argument matchers! 1 matchers expected, 2 recorded. any , used above, doesn't return "special kind of null" or "special kind of getprogramtype"; don't exist. instead, returns null , side effect puts matcher on stack. whe...
Read more

google shop client API returns 400 bad request error while adding an item -

i'm working on solution add items in google shopping market java application. following tutorial real mess because of missing classes of laste release, after setting 1.5-beta maven managed make base example typecheck correctly classes. still can make simple task of adding 1 item. instead of posting whole code i'm posting part creates product feed. private product createproduct(string id) { product product = new product(); product.title = "red wool sweater"; product.content = new content( "text", "comfortable , soft, sweater keep warm on " + "cold winter nights. red , blue stripes."); product.appcontrol = new appcontrol(); product.appcontrol.addrequireddestination("productads"); product.externalid = id; product.lang = "it"; product.country = "it"; product.condition = "nuovo"; product.price = new price("eu...
Read more