|
prueba algo parecido a lo siguiente
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not (IsNumeric(TextBox1.Text)) Then
MsgBox "Debe ser número", vbOKOnly, "Error"
Cancel = True
ElseIf Val(TextBox1.Text) < 1 Or Val(TextBox1.Text) > 999 Then
MsgBox "Fuera de Rango", vbOKOnly, "Error"
Cancel = True
End If
End Sub
Saludos
gfellay
|
