If Code for limits

[Goody61865]

I am trying to write a code for a textbox to not allow a number to be entered that is outside of the range .105 - .125, but for some reason this is kicking my butt. Is this really that difficult?

Can someone help me?

Thanks

 

[mikerickson]

I'm doing this from memory, and I don't recall the proper declaration of the TextBox1_BeforeUpdate sub, but something like this should work.

Sub TextBox1_BeforeUpdate (Cancel as Boolean): Rem replace this line
    Cancel = (Val(Textbox1.Text) < .105) Or (.125 < Val(TextBox1.Text))
Exit Sub

 

[Goody61865]

I get an error procedure declaration does not match description. Is this what you were talking about?

 

[mikerickson]

Now that I'm back at my Excel, this is the proper syntax. You may need to alter the name of the textbox to suit your situation.

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    Cancel = (Val(TextBox1.Text) < 0.105) Or (0.125 < Val(TextBox1.Text))
    If Cancel Then Beep
End Sub

 

[Goody61865]

Works perfect!! Thanks so much!!! Have a great weekend!