Ver Mensaje Individual
  #1 (permalink)  
Antiguo 10/06/2011, 15:43
t0n1
 
Fecha de Ingreso: noviembre-2010
Mensajes: 175
Antigüedad: 13 años, 5 meses
Puntos: 1
Validar Inputbox

Hola!!!

Quería saber como podría hacer para validar dos Inputbox y que por ejemplo, si el usuario ingresa mal un dato en el 2do Inputbox, no tener que finalizar el sub con un exit y que el usuario no vuelva a ingesar los datos desde el primer Inputbox en vez de reingresar los datos del 2do Inputbox que fué el cual ingresó mal los datos.

Pongo el ejemplo por las dudas:

Código:
Private Sub cmdMostrar_Click()

Base = InputBox("Ingrese la base del triángulo")

If Base = "" Then
    MsgBox "Ingreso cancelado"
    Exit Sub
Else
    If Not IsNumeric(Base) Then
        MsgBox "Ingrese números"
        Base = ""
        Exit Sub
    End If
End If


Altura = InputBox("Ingrese la altura del triángulo")

If Altura = "" Then
    MsgBox "Ingreso cancelado"
    Exit Sub
Else
    If Not IsNumeric(Altura) Then
        MsgBox "Ingrese números"
        Base = ""
        Exit Sub ------> Si el usuario ingresó el dato en letras, que no de salida el sub y el usuario tenga que volver a cargar desde el primer Inputbox y que vuelva a reingresar desde el 2do.
    End If
End If

Saludos!!!