excel vba "is numeric" validation for multiple text boxes

Question

0.00/5 (No votes)

See more:

I have over 100 text boxes on my excel VBA form and
I request for help on how i can write "is numeric"
validation for all the boxes together without having
to write for every/each text box. thanks

Posted 13-Aug-13 23:33pm

Member 10208918

Add a Solution

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Sriram Bala · Answer 1 · 2013-08-14T01:54:00

Solution 1

Hi,
I assume you left thos 100 Textbox(s) (Name) default. If so you can acheive this by writing a simple VBA macro code like mentioned below. If the value is not numeric this pops the name of the textbox. you can change the funcionality which suits for you.

VB

Private Sub CheckIsNumeric()
Dim i As Integer
Dim flag As Boolean
For i = 1 To 100
   flag = IsNumeric(Controls("TextBox" & i).Text)
   If flag = False Then
       MsgBox ("TextBox" & i & " is not numeric")
   Exit For
   End If
Next
End Sub

Hope I understood your question correctly. Change the value 100 based on your textbox count.

Thanks
Sriram.B

Posted 14-Aug-13 1:54am

Sriram Bala

Comments

Maciej Los 14-Aug-13 8:14am

Please, test it:

Sub Test()
Dim s As String

s = "&1"
MsgBox "'" & s & "' is number: '" & IsNumeric(s) & "'", vbInformation, "Message"
s = "523d9"
MsgBox "'" & s & "' is number: '" & IsNumeric(s) & "'", vbInformation, "Message"
s = "122e5"
MsgBox "'" & s & "' is number: '" & IsNumeric(s) & "'", vbInformation, "Message"
End Sub

Using IsNumeric() function validation failed ;(

Sriram Bala 14-Aug-13 8:24am

I am trying to replicate the error you pasted above. I am not getting that. I placed a command button in the form and wrote the above piece of code inside Private Sub CommandButton1_Click(). However Member 10208918303 should include empty text validation logic like you mentioned. Thanks. :-)

Member 10208918 · Answer 2 · 2013-08-14T02:56:00

Solution 2

Im very grateful but just wondering where exactly to place the code. Im just a beginner so Im requesting for more elaborations please. thanks

Posted 14-Aug-13 2:56am

Member 10208918

Comments

Maciej Los 15-Aug-13 15:33pm

This is not an answer. Please delete it to avoid down-voting. To post a question or comment, use "Have a question or comment" widget.