Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Textbox problem
Hello there, I`m trying to make a textbox that only accept numbers including zero (0), I wrote a code, it work fine, but the only problem is that this code doesn`t accept zero witch is bad. Can you please send me a code that accept only numbers?. Thanks. ‘************** Star code Private Sub TextBox3_Change() If TextBox3.Value < "" And Val(TextBox3.Value) = 0 Then MsgBox "Unicamente se permiten valores numéricos", vbCritical, "...::: Error :::..." TextBox3.Value = "" TextBox3.SetFocus CommandButton1.Visible = False CommandButton2.Visible = False TextBox4.Visible = False Else CommandButton1.Visible = True CommandButton2.Visible = True TextBox4.Visible = True End If If Val(TextBox3.Value) Val(TextBox2.Value) Then MsgBox "El número máximo permisible de piezas defectuosas no puede superar a el de la muestra.", vbCritical, "...::: Error :::..." TextBox3.Value = "" TextBox3.SetFocus TextBox4.Visible = False End If End Sub ‘*************** End Code Thanks for your help I sorry about my English, I`m from Colombia South America. -- mondolfo ------------------------------------------------------------------------ mondolfo's Profile: http://www.excelforum.com/member.php...o&userid=17083 View this thread: http://www.excelforum.com/showthread...hreadid=544781 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Textbox problem
If Not(IsNumeric(TextBox3.Value)) Then...
-- - K Dales "mondolfo" wrote: Hello there, I`m trying to make a textbox that only accept numbers including zero (0), I wrote a code, it work fine, but the only problem is that this code doesn`t accept zero witch is bad. Can you please send me a code that accept only numbers?. Thanks. €˜************** Star code Private Sub TextBox3_Change() If TextBox3.Value < "" And Val(TextBox3.Value) = 0 Then MsgBox "Unicamente se permiten valores numéricos", vbCritical, "...::: Error :::..." TextBox3.Value = "" TextBox3.SetFocus CommandButton1.Visible = False CommandButton2.Visible = False TextBox4.Visible = False Else CommandButton1.Visible = True CommandButton2.Visible = True TextBox4.Visible = True End If If Val(TextBox3.Value) Val(TextBox2.Value) Then MsgBox "El número máximo permisible de piezas defectuosas no puede superar a el de la muestra.", vbCritical, "...::: Error :::..." TextBox3.Value = "" TextBox3.SetFocus TextBox4.Visible = False End If End Sub €˜*************** End Code Thanks for your help I sorry about my English, I`m from Colombia South America. -- mondolfo ------------------------------------------------------------------------ mondolfo's Profile: http://www.excelforum.com/member.php...o&userid=17083 View this thread: http://www.excelforum.com/showthread...hreadid=544781 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Textbox problem
Try changing: If TextBox3.Value < "" And Val(TextBox3.Value) = 0 Then To: If Not IsNumeric(TextBox3.Value) The -- colofnatur ----------------------------------------------------------------------- colofnature's Profile: http://www.excelforum.com/member.php...fo&userid=3435 View this thread: http://www.excelforum.com/showthread.php?threadid=54478 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Textbox Problem | Excel Programming | |||
Textbox problem | Excel Programming | |||
Textbox adding problem | Excel Programming | |||
TextBox SetFocus Problem | Excel Programming | |||
Excel textbox problem | Excel Programming |