Limiting values that can be entered in a form

[VBA_Rage]

This may sound like a simple question but I really can't find the answer!

How can I restrict the values entered in a user form. Example - I have a text box set up in a user form that prompts for inputs that will only accept numbers - but I want to restrict that further by only allowing the user to enter a number between 10 and 15. I can't use a list because I need the flexibility of having decimal entries as well (e.g. 10.27, 14.49, etc).

Any ideas?

 

[Gary McMaster]

The snip below works for me. Of course you'll probably need to change the name of the textbox.

Hope it helps.

Gary

Private Sub TextBox1_LostFocus()

If Val(TextBox1.Text) < 10 Or Val(TextBox1.Text) > 15 Then
    MsgBox "Value must be between 10 and 15"
End If

TextBox1.Activate

End Sub

 

[shyrath]

This works for me

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    If TypeName(Me.ActiveControl) = "TextBox" Then

        With Me.ActiveControl

            If Not IsNumeric(.Value) And .Value <> vbNullString Then

                MsgBox "Sorry, only numbers allowed"

                .Value = vbNullString
                
                Else
                
                If .Value > 15 Or .Value < 10 Then
                MsgBox "please enter between 10 and 15"
                .Value = vbNullString
                End If

            End If

        End With

    End If

    '

End Sub

 

[VBA_Rage]

Thanks but it doesn't seem to get me any further - I can still input the 'wrong' number in the form and it then throws up the message when I click OK to transfer the input values to the worksheet - and gets stuck in a loop since I can't get away from the message box without it resetting the value in the textbox in the form. what i really need is a message that pops up to tell me its wrong and then drops me back into the box in the form before letting me move onto the next box.