validation of textbox entries

[CG Rosén]

Good Day Group,

Found below code in this group. It works fine except that the SetFocus
command does not work.
The focus jumps to TextBox2 as set in the "Tab order".

What Iám looking for is a code that validates the TextBox and give a warning
when a letter is entered
in the box, single or mixed with numbers. Only numbers ín any combination
shall be the correct input.

Grateful for help.

Brgds

CG Rosén

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.TextLength = 0 Then
Cancel = True 'to prevent non-entry
Else
With Sheet1.Range("c1:c99")'Where valid entries are located
Set c = .Find(TextBox1.Text)
If c Is Nothing Then
MsgBox TextBox1.Text & " is invalid input"
TextBox1.SetFocus
Exit Sub
End If
End With
End If
End Sub

 

[Guest]

Hi,
Try thiS:

If Not (IsNumeric(TextBox1.Value)) Then
MsgBox "Entry must be numeric"
Exit Sub
End If

 

[keepITcool]

can shorten that to:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = Not IsNumeric(TextBox1) Or _
IsError(Application.Match(CDbl(TextBox1), Sheet1.Range("c1:c99"), 0))
If Cancel Then Beep
End Sub




--
keepITcool
| www.XLsupport.com | keepITcool chello nl | amsterdam


CG Rosén wrote :

 

[Rick_Stanich]

Can I get some help on expanding this code? Even direction will be
useful as I don't mind learning by reading oe examples (Yes, I have
searched for many hours).

(snippet)
If Not (IsNumeric(TextBox1.Value)) Then
MsgBox "Entry must be numeric"
Exit Sub
End If

I have a userform with 2 to 100 textbox's to itterate thru for a
numeric condition to be true less one text box which will be a Date.
Can this be coded to check all textbox's less one (call it textbox1)
with out specifying every textbox?

In the above code TextBox1.Value will have to be a variable.