Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
((( WARNING ))) Pass it on if you have the courage. €*
I thought Moveon.org had its on web site.
" wrote: ((( WARNING ))) Pass it on if you have the courage. €* American Soldiers are being killed by our own [[[ Coverment ]]] 9/11 was a inside job, The Iraq War is staged !!! They need a excuse to stay in Iraq to steal the OIL. Bush and Cheney are Mass Murderers and agents of the Elite Robber Oil Barons. It's NOT a WAR on TERROR ! It's a WAR for OIL ! Sometimes the TRUTH is so ugly we do not want to believe it. And sometimes the TRUTH is stranger then fiction! If we do nothing, then we deserve it. Protect your Families. Form Militia's !!! " WE MUST RESIST TYRANNY " Start Calling Our Boys Home from Iraq Right Now ! Our Love Ones are slaughtered for the lack of knowledge !!! Long Live The Republic. We Must Resist Tyranny. Sons of Liberty Militia Tim Stine 312 S. Wyomissing Ave. Shillington, Pa. 19607 U.S.A. 610-775-0497 The revolution has started !!! It's time to start over. http://tinyurl.com/yrk23j |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
((( WARNING ))) Pass it on if you have the courage. €*
Hi again,
This works great. One little glitch. If i enter numeric values, all is well. if i enter non-numeric values, an error fires. Problem: if i enter data, then remove it, the non-numeric error message fires. Not good. I want the user to be able to leave the field blank if they do not have the information. Suggestions? Thanks again for your help, i really appreciate it. Code below: Private Function EvaluateText(anyEntry As String) _ As Boolean EvaluateText = False ' all is well If Not IsNumeric(anyEntry) Then MsgBox "This field accepts numeric data only. Please revise your entry and try again." EvaluateText = True ' to be copied to Cancel Exit Function ' exit with True End If 'if it makes it to here, it is numeric and 'EvaluateText will be False, which will NOT 'trigger the Cancel in the calling routine, so 'you should move on to the next control now. End Function -- Carlee "JLGWhiz" wrote: I thought Moveon.org had its on web site. " wrote: ((( WARNING ))) Pass it on if you have the courage. €* American Soldiers are being killed by our own [[[ Coverment ]]] 9/11 was a inside job, The Iraq War is staged !!! They need a excuse to stay in Iraq to steal the OIL. Bush and Cheney are Mass Murderers and agents of the Elite Robber Oil Barons. It's NOT a WAR on TERROR ! It's a WAR for OIL ! Sometimes the TRUTH is so ugly we do not want to believe it. And sometimes the TRUTH is stranger then fiction! If we do nothing, then we deserve it. Protect your Families. Form Militia's !!! " WE MUST RESIST TYRANNY " Start Calling Our Boys Home from Iraq Right Now ! Our Love Ones are slaughtered for the lack of knowledge !!! Long Live The Republic. We Must Resist Tyranny. Sons of Liberty Militia Tim Stine 312 S. Wyomissing Ave. Shillington, Pa. 19607 U.S.A. 610-775-0497 The revolution has started !!! It's time to start over. http://tinyurl.com/yrk23j |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
((( WARNING ))) Pass it on if you have the courage. ?
Hello Carlee,
I think you have replied to a message in a different thread. I don't imagine many people will be reading this one for some reason! MH "Carlee" wrote in message ... Hi again, This works great. One little glitch. If i enter numeric values, all is well. if i enter non-numeric values, an error fires. Problem: if i enter data, then remove it, the non-numeric error message fires. Not good. I want the user to be able to leave the field blank if they do not have the information. Suggestions? Thanks again for your help, i really appreciate it. Code below: Private Function EvaluateText(anyEntry As String) _ As Boolean EvaluateText = False ' all is well If Not IsNumeric(anyEntry) Then MsgBox "This field accepts numeric data only. Please revise your entry and try again." EvaluateText = True ' to be copied to Cancel Exit Function ' exit with True End If 'if it makes it to here, it is numeric and 'EvaluateText will be False, which will NOT 'trigger the Cancel in the calling routine, so 'you should move on to the next control now. End Function -- Carlee "JLGWhiz" wrote: I thought Moveon.org had its on web site. " wrote: ((( WARNING ))) Pass it on if you have the courage. ? American Soldiers are being killed by our own [[[ Coverment ]]] 9/11 was a inside job, The Iraq War is staged !!! They need a excuse to stay in Iraq to steal the OIL. Bush and Cheney are Mass Murderers and agents of the Elite Robber Oil Barons. It's NOT a WAR on TERROR ! It's a WAR for OIL ! Sometimes the TRUTH is so ugly we do not want to believe it. And sometimes the TRUTH is stranger then fiction! If we do nothing, then we deserve it. Protect your Families. Form Militia's !!! " WE MUST RESIST TYRANNY " Start Calling Our Boys Home from Iraq Right Now ! Our Love Ones are slaughtered for the lack of knowledge !!! Long Live The Republic. We Must Resist Tyranny. Sons of Liberty Militia Tim Stine 312 S. Wyomissing Ave. Shillington, Pa. 19607 U.S.A. 610-775-0497 The revolution has started !!! It's time to start over. http://tinyurl.com/yrk23j |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Pass The Formulas Please | Excel Discussion (Misc queries) | |||
warning: cannot change part of an array. how do I by pass this? | Excel Worksheet Functions | |||
Pass Argument? | Excel Programming | |||
How to by-pass password ? | Excel Programming | |||
Pass an ADO recordset | Excel Programming |