excel - VBA: subroutine with if statement and returning true or false? -



excel - VBA: subroutine with if statement and returning true or false? -

solved!

i have validate cells not empty, want create subroutine , pass variables need checked.

this came with:

sub errormessage(errmsg string, errrange string) if range(errrange) = "" msgbox errmsg, , "error:" range(errrange).activate 'this looking :doh:, 'end' line terminates everything.. end end sub

now when phone call button, actuall end sub of button?

i.e.

private sub commandbutton1_click() phone call errormessage("name missing", "d4") 'this function shouldn't called if there msgbox displayed above phone call sendemail end sub

how can create happen?

edit:

ok how sovled it, reason i'm trying avoid tons of lines of code in buttonclick sub, thoughts??

keep in mind thing has check 25 questions blanks before executing sendemail sub....

private sub commandbutton1_click() phone call validateentry("client name missing.", "d4") phone call validateentry("# not complete.", "d5") phone call validateentry("address same cv?", "d6") phone call validateentry("number missing.", "d8") phone call validateentry("type missing.", "d9") phone call validateentry("q1 requires yes or no.", "e19") phone call validateentry("q2 requires yes or no.", "e21") phone call validateentry("q3 requires yes or no.", "e23") phone call validateentry("q4 requires yes or no.", "e25") phone call validateentry("q5 requires date.", "d28") phone call validateentry("q6 requires yes or no.", "e30") phone call validateentry("q7 requires yes or no.", "e32") msgbox "passed" 'sendemail end sub sub validateentry(errmsg string, errrange string) if range(errrange) = "" msgbox errmsg, , "error:" range(errrange).activate end end if end sub

so, in example, you're looking "passed" notification sent when there info in cell d4, right?

this should work:

private function errormessage(errmsg string, errrange string) boolean errormessage = false if len(trim(range(errrange))) = 0 msgbox errmsg, , "error:" range(errrange).activate errormessage = true end if end function public sub commandbutton1_click() if errormessage("name missing", "d4") = false msgbox "passed" end if end sub

alternatively, can handle msgbox notifications within function, grouping similar logic together, , maintain button click event sub clean:

private function errormessage(errmsg string, errrange string) if len(trim(range(errrange))) = 0 msgbox errmsg, , "error:" range(errrange).activate else msgbox "passed" end if end function public sub commandbutton1_click() phone call errormessage("name missing", "d4") end sub

excel vba excel-vba subroutine

Comments

Post a Comment

Popular posts from this blog

web services - java.lang.NoClassDefFoundError: Could not initialize class net.sf.cglib.proxy.Enhancer -

web services - java.lang.NoClassDefFoundError: Could not initialize class net.sf.cglib.proxy.Enhancer - when trying request rest service @ time of response getting exception.. feb 21, 2013 2:34:49 pm com.sun.jersey.spi.container.containerresponse mapmappablecontainerexception severe: exception contained within mappablecontainerexception not mapped response, re-throwing http container java.lang.noclassdeffounderror: not initialize class net.sf.cglib.proxy.enhancer @ org.hibernate.proxy.pojo.cglib.cgliblazyinitializer.getproxyfactory(cgliblazyinitializer.java:117) @ org.hibernate.proxy.pojo.cglib.cglibproxyfactory.postinstantiate(cglibproxyfactory.java:43) @ org.hibernate.tuple.entity.pojoentitytuplizer.buildproxyfactory(pojoentitytuplizer.java:162) @ org.hibernate.tuple.entity.abstractentitytuplizer.<init>(abstractentitytuplizer.java:135) @ org.hibernate.tuple.entity.pojoentitytuplizer.<init>(pojoentitytuplizer.java:55) @ org.hibernate.tuple.e...
Read more

Accessing MATLAB's unicode strings from C -

Accessing MATLAB's unicode strings from C - how can access underlying unicode info of matlab strings through matlab engine or mex c interfaces? here's example. let's set unicode characters in utf-8 encoded file test.txt, read as fid=fopen('test.txt','r','l','utf-8'); s=fscanf(fid, '%s') in matlab. now if first feature('defaultcharacterset', 'utf-8') , c engevalstring(ep, "s") , output text file utf-8. proves matlab stores unicode internally. if mxarraytostring(enggetvariable(ep, "s")) , unicode2native(s, 'latin-1') give me in matlab: non-latin-1 characters replaced character code 26. need getting access underlying unicode info c string in unicode format (utf-8, utf-16, etc.), , preserving non-latin-1 characters. is possible? my platform os x, matlab r2012b. addendum: documentation explicitly states "[mxarraytostring()] supports multibyte encoded characters...
Read more

javascript - mongodb won't find my schema method in nested container -

javascript - mongodb won't find my schema method in nested container - i trying access method of schema stored within mixed container. here situation : have cases model can many different things, have schema each of these things stored in "casecontent" mixed property. var caseschema = mongoose.schema({ casecontent : {}, object : {type:string, default : "null"}, collision : {type : boolean, default : false} }); the casecontent property filled model of 1 of schemas, 1 exemple : var treeschema = new mongoose.schema({ applecount : {type : number, default : 3} }); treeschema.methods.dostuff = function (data) { console.log('hey, listen'); homecoming true; }; then, want utilize method of schema original container : caseschema.methods.dostuff = function (data) { if (this.casecontent.dostuff !== undefined) { this.casecontent.dostuff(); console.log('it worked'); } else { ...
Read more