inputbox

[emiaj61]

al colocar una inputbox para solicitar el ingreso de un dato , si el usuario no escribe nada y presiona aceptar, o presiona cancel sin ingresar ningun dato, o aun si ingresa el dato solicitado pero presiona cancel.
hay manera de pasar directamante al End Sub.
de tal manera que se pare el procedimiento.

 

[galileogali]

A ver que tal esto:

Sub PREGUNTAR()
    Dim RESP As Variant

    RESP = Application.InputBox("¿Por qué no escribe algo y no se hace el distraído?")
    If RESP = Empty Then GoTo fin
    MsgBox "Por fin puso un poco de atención y contestó"
    Exit Sub

fin:
    MsgBox "Al final es Ud. un distraído total"
    PREGUNTAR

End Sub

GALILEOGALI

 

[emiaj61]

gracias Don Gali, solo agrege despues de la linea : MsgBox " Por fin puso un poco de atencion y contesto"
el codigo a correr si el usuario se anima a escribir algo y clickea enter.