minimum value of a text box

stevehorton09 · Aug 27th 2004

Hi everyone,

how can i have a minimum value to a cell i.e you have to enter 6 digits

my current code stops someone entering a letter and the max length is set in the vb properties but now im lost!!

my code:

Private Sub GlobalAccount1_Change()
Dim TbCheck

If TbCheck = IsNumeric(GlobalAccount1) Then
MsgBox "This is an invalid entry! Please delete and retype a number "
End If
TbCheck = IsNumeric(GlobalAccount1)
End Sub

Dave Hawley · Aug 27th 2004

Hi stevehorton09

Try the code below

Code

Private Sub GlobalAccount1_Change()
Dim TbCheck
TbCheck = GlobalAccount1
If GlobalAccount1 = vbNullString Then Exit Sub
    If Not IsNumeric(TbCheck) Then
        MsgBox "This is an invalid entry! Please delete and retype a number"
    ElseIf Len(TbCheck) > 6 Then
         MsgBox "Too many numerals"
    End If
End Sub




Private Sub GlobalAccount1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 If GlobalAccount1 = vbNullString Then Exit Sub
   If Len(GlobalAccount1) < 6 Then
         MsgBox "Not enough numerals"
         Cancel = True
         Exit Sub
    End If
End Sub

Display More

minimum value of a text box

Participate now!

Share