On Error Goto

[null]

Dim a As Integer
Dim b As Integer
Private Sub Form_Load()
On Error GoTo error1
a = InputBox("Insertar numero 1", "Numero 1")
On Error GoTo error2
b = InputBox("Insertar numero 2", "Numero 2")
error1:
error1msg = MsgBox("Ingrese caracteres numericos", vbCritical + vbOKOnly, "NUMERO 1")
Resume
error2:
error2msg = MsgBox("Ingrese caracteres numericos", vbCritical + vbOKOnly, "NUMERO 2")
Resume
Exit Sub
resultado = a + b
msgresultado = MsgBox(resultado, vbYesNo, "Resultado:")
If msgresultado = yes Then
End
Else:
End If

End Sub

No entiendo que hise mal, Soy novato en esto ...
Me dan una mano?

[seba123neo]

Hola,proba esto:

Código:

Dim a As Integer
Dim b As Integer

Private Sub Form_Load()
On Error GoTo error1
a = InputBox("Insertar numero 1", "Numero 1")
b = InputBox("Insertar numero 2", "Numero 2")
resultado = a + b
msgresultado = MsgBox(resultado, vbYesNo, "Resultado:")
If msgresultado = vbYes Then End
Exit Sub
error1:
MsgBox "error ingresaste una letra seguro....o no ingresaste nada", vbCritical
End Sub

saludos.

[null]

Muchas gracias!
Probe con algunos retoques y funciono!
Saludos :)

[David]

Iniciado por null

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)...