Userform Textbox Criteria

[Turbo68]

I am wanting my textbox that I have named: ISSUE to meet the following parameters:

1. No Alpha at all - If an alpha character is typed instantly say no letters, please.
2. HAS to be a number between 1000000 & 2000000.

I have OnlyNumbers set up already but failing on getting it to check the number of numerals or the between numbers.

Can this be done???

Thanks

Mike

 

[dmt32]

I have OnlyNumbers set up already but failing on getting it to check the number of numerals or the between numbers.


Mike

Hi,
Helpful if you publish code(s) you have issues with.

One way of checking if a value in Textbox is between certain values is to use the controls Exit event which has the Cancel parameter

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    With Me.TextBox1
      Cancel = CBool(Me.Visible And Len(.Text) > 0 And Not Val(.Text) >= 1000000 And Val(.Text) <= 2000000)
      If Cancel Then MsgBox "Invalid Entry" & Chr(10) & _
                            "Please enter a number between 1000000 & 2000000", 48, "Invalid Entry"
    End With
End Sub

Change the control name as required

Dave

 

[Turbo68]

This works if UNDER the 1000000 but will take anything over 2000000?

Private Sub Issue_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With Me.Issue
Cancel = CBool(Me.Visible And Len(.Text) > 0 And Not Val(.Text) >= 1000000 And Val(.Text) <= 2000000)
If Cancel Then MsgBox "Invalid Entry" & Chr(10) & _
"Please enter a number between 1000000 & 2000000", 48, "Invalid Entry"
End With
End Sub

 

[dmt32]

try this update

Private Sub Issue_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    With Me.Issue
    If Me.Visible And Len(.Text) > 0 Then
      Cancel = CBool(Val(.Text) < 1000000 Or Val(.Text) > 2000000)
     End If
    If Cancel Then MsgBox "Invalid Entry" & Chr(10) & _
                            "Please enter a number between 1000000 & 2000000", 48, "Invalid Entry"
    End With
End Sub

Dave

 

[Turbo68]

Thank Dave... that worked perfectly!

 

[dmt32]

Thank Dave... that worked perfectly!

I seem to have too many senior moments these days but glad solution helped.

Dave