You are going to have to decide what you want the user to enter in the cell.
What is acceptable

Which
..50
or
50
or
50%
or multiple

Then you have to test for what was entered and decide what you want to do
with it.

Whatever is in the textbox will be a string, so you don't want to compare a
string to a number. You will need to convert the string to a number and do
the comparison.

It appears you want the value entered to be between 0.0 and 1.0. If so, you
don't want to turn it into a percentage before you do the check.


Private Sub PercentTB_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Min As Single
Dim Max As Single


Min = Format(CSng(0), "##.#%")
Max = Format(CSng(1), "##.#%")

If (csng(PercentTB.Value) < Min) Or (csng(PercentTB.Value) Max) Then
MsgBox "Value must be between 0.0 - 1.0", vbOKOnly
Cancel = True
PercentTB.Value = ""
End If

PercentTB.Value = Format(CSng(PercentTB.Value), "##.#%")

End Sub

--
Regards,
Tom Ogilvy




"ajliaks " wrote in message
...
Hi

I am trying the way you told me, but is not working right. I guess I am
missing something.

when I run it, I allways get the MsgBox "Value must be between 0.0 -
1.0", no mather the value.

Private Sub PercentTB_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Min As Variant
Dim Max As Variant

PercentTB.Value = Format(CSng(PercentTB.Value), "##.#%")

Min = Format(CSng(0), "##.#%")
Max = Format(CSng(1), "##.#%")

If (PercentTB.Value < Min) Or (PercentTB.Value Max) Then
MsgBox "Value must be between 0.0 - 1.0", vbOKOnly
Cancel = True
End If
End Sub


---
Message posted from http://www.ExcelForum.com/