Excel: Cancelar un InputBox?

[Pablus00]

Hola Colegas, no puedo captar el evento Cancel del inputbox para que ejecute el codigo que quiero, hice estos ejemplos:

Sub Botón1_AlHacerClic()
pablo = InputBox("MONTO", "DINERO")

If pablo = vbAbort Then
MsgBox "aborto"
Else
If pablo = vbCancel Then
MsgBox "cancelo"
Else
If pablo = vbRetry Then
MsgBox "retrayo"
Else
If pablo = vbIgnore Then
MsgBox "ignoro"
End If
End If
End If
End If
End Sub

apreto cancelar, aceptar sin un valor, exit, lo que sea, y no los capta, no se por que

[mrocf]

Hola! Pablus00.
La explicación es sencilla: sin importar lo que hayas escrito en el cuadro de diálogo, cuando presionas "Cancelar" o "Cerrar" la función InputBox SIEMPRE devuelve una cadena vacía ("").

Por ello los parámetros vbAbort, vbCancel, vbRetry ó vbIgnore NUNCA se verifican en este entorno.

Saludos y Feliz 2008

[Pablus00]

ok, gracias mrocf, o sea qeu cancelar, cerrar y aceptar sin un valor ingresado todos dan ""?, ojala que no sea asi, ya que resultaria muy limitado

[mrocf]

Mira: Una alternativa un poco más elaborada que "InputBox" es "Application.InputBox".
Lee sobre este método. En particular, mira el uso del argumento "Type".

Y si no te sirve, debes "rumbear" para el lado de los cuadros de texto (TextBox).

[conraad]

Creo que aquí va una opción:

While comodin = False
producto = (InputBox("Introduce el nombre del producto", "Producto", " "))
If producto = "" Then
Exit Sub
End If
If producto.Trim = "" Then
MsgBox("Debes introducir una descripción del producto", MsgBoxStyle.Critical)

....

Es decir, ponemos por defecto un valor " ", con lo cual si se le da a aceptar nunca le pasará un "", sino o bien la cadena introducida o bien " ", con un espacio.
Si se le da a Cancelar le pasará "" y saldremos del procedimiento.