Ver Mensaje Individual
  #4 (permalink)  
Antiguo 07/07/2008, 06:36
Avatar de David
David
Moderador
 
Fecha de Ingreso: abril-2005
Ubicación: In this planet
Mensajes: 15.720
Antigüedad: 19 años
Puntos: 839
Exclamación Respuesta: On Error Goto

Cita:
Iniciado por null Ver Mensaje
Muchas gracias!
Probe con algunos retoques y funciono!
Saludos :)
Me alegra que haya funcionado. No obstante, siempre es recomendable en lo posible evitar los errores y no simplemente controlarlos. Por ejemplo en tu caso podrías hacer así:
Código:
Dim dato As String
dato = ""
Do While Not IsNumeric(dato)
       dato = InputBox("Insertar numero 1", "Numero 1")
Loop
a = CInt(dato)
dato = ""
Do While Not IsNumeric(dato)
       dato = InputBox("Insertar numero 2", "Numero 2")
Loop
b = CInt(dato)
Pero es según la opinión de cada uno. Solo es una sugerencia más...

Saludos .

P.S.: Goto es conocido como código maldito (o sea, su uso casi nunca es recomendable). Así que si en todo caso puedes hacer un control de errores usando On Error Resume Next (y controlando con el objeto Err si se ha producido algún error)...
__________________
Por favor, antes de preguntar, revisa la Guía para realizar preguntas.