Check userform values

robfo0 · Apr 2nd, 2002, 03:26 PM

Hi,

Is there a quick code that i can use to make sure that a value in a text box on my userform is a number (0-9), and if its not, give a message or something?

Thanks

Al Chara · Apr 2nd, 2002, 04:12 PM

Try the following code:

If Application.WorksheetFunction.And(textbox1.Value >= 0, textbox1.Value <= 9) = False Then MsgBox "Incorrect value"

Replace textbox1 with the name of your textbox.

robfo0 · Apr 2nd, 2002, 04:21 PM

Al, thanks for the quick response, but actually I worded my question wrong. I want the value to be a number, but it may have multiple digits...so it could be 12345 etc. I'm just trying to keep everying except numbers out of the field. How would i do that?

thanks Al

NateO · Apr 2nd, 2002, 04:40 PM

If Not Application.WorksheetFunction.IsNumber(textbox1.Value) _
Then MsgBox "Make it a number please. Merci."

_________________
Cheers, NateO

[ This Message was edited by: NateO on 2002-04-02 15:41 ]

robfo0 · Apr 2nd, 2002, 05:05 PM

Thank you very much

Apr 2nd, 2002, 04:12 PM	#2
Al Chara MrExcel MVP Join Date: Feb 2002 Location: Monterrey, Mexico Posts: 1,433	Try the following code: If Application.WorksheetFunction.And(textbox1.Value >= 0, textbox1.Value <= 9) = False Then MsgBox "Incorrect value" Replace textbox1 with the name of your textbox. __________________ Kind regards, Al Chara

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 2nd, 2002, 03:26 PM	#1
robfo0 Board Regular Join Date: Feb 2002 Location: Stockton, California Posts: 281	Hi, Is there a quick code that i can use to make sure that a value in a text box on my userform is a number (0-9), and if its not, give a message or something? Thanks

Apr 2nd, 2002, 04:21 PM	#3
robfo0 Board Regular Join Date: Feb 2002 Location: Stockton, California Posts: 281	Al, thanks for the quick response, but actually I worded my question wrong. I want the value to be a number, but it may have multiple digits...so it could be 12345 etc. I'm just trying to keep everying except numbers out of the field. How would i do that? thanks Al

Apr 2nd, 2002, 04:40 PM	#4
NateO Legend Join Date: Feb 2002 Location: Minneapolis, Mn, USA Posts: 9,704	If Not Application.WorksheetFunction.IsNumber(textbox1.Value) _ Then MsgBox "Make it a number please. Merci." _________________ Cheers, NateO [ This Message was edited by: NateO on 2002-04-02 15:41 ]

Apr 2nd, 2002, 05:05 PM	#5
robfo0 Board Regular Join Date: Feb 2002 Location: Stockton, California Posts: 281	Thank you very much