MsgBox con un If...Then
Buenas, a todos. Tengo un formulario de VBA y dentro de este un TexBox en el que se introducen importes. Quiero que cada vez que se introduzcan importes que sean menores a 50.000 y mayores a 1.000.000 aparezca un mensaje que diga "Fuera del alcance del sistema" . Uso el siguiente código:
Private Sub TexBox3_Change()
If Val(TexBox3.Value) < 50000 Or Val(TexBox3.Value) > 1000000 Then
MsgBox "Fuera del alcance del sistema"
End Sub
Cuando pruebo con 48.000 por ejemplo (y con cualquier otro número no adecuado al rango de alcance), no me sale el mensaje predeterminado.
¿Alguien sabe qué estoy haciendo mal?
Private Sub TexBox3_Change()
If Val(TexBox3.Value) < 50000 Or Val(TexBox3.Value) > 1000000 Then
MsgBox "Fuera del alcance del sistema"
End Sub
Cuando pruebo con 48.000 por ejemplo (y con cualquier otro número no adecuado al rango de alcance), no me sale el mensaje predeterminado.
¿Alguien sabe qué estoy haciendo mal?
1 respuesta
Respuesta de leone
1