Texbox con formato determinado
Hola expertos.
Otra duda que os planteo, ¿dónde estoy metiendo la pata? Tengo un texbox que solo permite entrar numero, hasta ahí bien. La duda la tengo para ponerle una condición, pero esa condición no se cumple. Me interesa que si ingreso un numero menor de 10 le añada al valor del texbox un 0 delante, (es para luego ordenarlo). La celda donde ingreso el valor esta en formato texto.
Mi rutina es esta:
Private Sub Texnum_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(Texnum.Text) = False And Len(Texnum.Text) <> 0 Then
MsgBox "Debe ingresar un campo numérico"
If Texnum.Value < 10 Then Texnum.Text = "0" & Texnum.Text
Cancel = True
End If
End Sub
Un saludo
Otra duda que os planteo, ¿dónde estoy metiendo la pata? Tengo un texbox que solo permite entrar numero, hasta ahí bien. La duda la tengo para ponerle una condición, pero esa condición no se cumple. Me interesa que si ingreso un numero menor de 10 le añada al valor del texbox un 0 delante, (es para luego ordenarlo). La celda donde ingreso el valor esta en formato texto.
Mi rutina es esta:
Private Sub Texnum_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(Texnum.Text) = False And Len(Texnum.Text) <> 0 Then
MsgBox "Debe ingresar un campo numérico"
If Texnum.Value < 10 Then Texnum.Text = "0" & Texnum.Text
Cancel = True
End If
End Sub
Un saludo
1 Respuesta
Respuesta de leone
1
Prueba con las modificaciones que te envío:
Private Sub Texnum_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(Texnum.Text) = False And Len(Texnum.Text) <> 0 Then
MsgBox "Debe ingresar un campo numérico", vbExclamation, "Error de dato"
Cancel = True
Else
If Len(Texnum.Value) = 1 Then Texnum.Text = "0" & Texnum.Text
End If
End Sub
Private Sub Texnum_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(Texnum.Text) = False And Len(Texnum.Text) <> 0 Then
MsgBox "Debe ingresar un campo numérico", vbExclamation, "Error de dato"
Cancel = True
Else
If Len(Texnum.Value) = 1 Then Texnum.Text = "0" & Texnum.Text
End If
End Sub
