VBA: La función MsgBox en una macro.

viernes, 2 de septiembre de 2011

VBA: La función MsgBox en una macro.

Es frecuente encontrarnos en algunas de nuestra macros, especialmente cuando queremos interrelacionarnos con la ejecución de ésta, esta función MsgBox, mediante la cual se muestra un mensaje en un cuadro de diálogo, a la espera de que el usuario pulse algunos de los botones habilitados.
¿Cuáles son los parámetros de esta función y qué podemos esperar de ella?.
Veamos en primer lugar la Sintáxis:
MsgBox(Prompt[, Buttons][, Title][, Helpfile, Context])
donde el Prompt se mostrará en nuestro Cuadro diálogo como parte del texto,
el siguiente parametro Buttons corresponde a alguno o varios de las siguientes posibilidades (mostraré los más habituales):

VbOKOnly: Muestra un botón 'Aceptar'
VbOKCancel:Muestra los botones 'Aceptar' y 'Cancelar'
VbAbortRetryIgnore: Muestra los botones 'Anular', 'Reintentar' e 'Ignorar'
VbYesNoCancel: Muestra los botones 'Sí', 'No' y 'Cancelar'
VbYesNo: Muestra los botones 'Sí' y 'No'
VbRetryCancel: Muestra los botones 'Reintentar' y 'Cancelar'.
VbCritical: Muestra el icono de mensaje crítico.
VbQuestion: Muestra el icono de pregunta de advertencia.
VbExclamation: Muestra el icono de mensaje de advertencia.
VbInformation: Muestra el icono de mensaje de información.

el parametro de Title añade en la cabecera del cuadro diálogo el texto deseado; y por último Helpfile que identifica cuál es el archivo de 'Ayuda' asociado a nuestro Cuadro diálogo (si especificamos Helpfile, también se debe especificar Context).

La interacción con este cuadro diálogo se realizará a través de las respuestas obtenidas tras pulsar los botones, ya que cada respuesta pulsada (cada botón pulsado) devuelve alguno de estos valores:

Si pulsamos el botón 'Aceptar', vbOK
Si pulsamos el botón 'Cancelar', vbCancel
Si pulsamos el botón 'Anular', vbAbort
Si pulsamos el botón 'Reintentar', vbRetry
Si pulsamos el botón 'Ignorar', vbIgnore
Si pulsamos el botón 'Sí', vbYes
Si pulsamos el botón 'No', vbNo

Pero veámoslo con un sencillo ejemplo.
Supongamos que deseamos generar un proceso que nos pregunte al inicio de éste, si deseamos Continuar con el resto de nuestra macro; por hacerlo sencillo, sólo queremos que se nos cambie el color de fondo de la celda A1 de la 'Hoja1' a amarillo, y que además escriba en dicha celda, en rojo, el texto 'macro 'amarillo' completada'.

Sub amarillo()
'fondo de la celda amarillo
Sheets("Hoja1").Range("A1").Interior.Color = 65535
'color de la fuente rojo
Sheets("Hoja1").Range("A1").Font.Color = -16776961
Sheets("Hoja1").Range("A1").Value = "macro 'amarillo' completada"    
End Sub

El trabajo consistirá en asignar, con la función MsgBox, los botones 'Sí' y 'No'.
Nuestro código a incluir en un módulo del Editor de VBA será:

Sub CuadroDialogo()
'www.excelforo.blogspot.com
Dim respuesta As Variant
'asignamos una variable a la función MsgBox
respuesta = MsgBox("Texto del Prompt... ¿continuamos con la macro?", _
vbYesNo, "Título del Cuadro diálogo")
'Evaluamos la respuesta dada sobre el cuadro diálogo
If respuesta = vbYes Then amarillo Else Exit Sub
'si pulsamos el botón 'Sí' entonces ejecutamos la macro 'amarillo',
'si pulsamos 'No' entonces terminamos y salimos de la macro.
End Sub

Al ejecutar la macro CuadroDialogo nos aparecerá:

Sabiendo que si pulsamos 'Sí' nuestra macro 'CuadroDialogo' llamará o ejecutará la macro 'amarillo', mientras que si pulsamos el 'No' directamente saldremos del procedimiento Sub, acabando el proceso.

26 comentarios:

Yoabril 30, 2012
Gracias x la explicacion, muy muy util :)
ResponderEliminar
Respuestas
samuel0579noviembre 28, 2012
Necesito saber algo, si quiero hacer un menú tal como estos de botones pero que despliegue unos botones definidos por mi ¿Cómo lo haría?
ResponderEliminar
Respuestas
samuel0579noviembre 28, 2012
Es decir boton 1 :Ingresar datos, boton 2:realizar calculos,.... etc
ResponderEliminar
Respuestas
samuel0579noviembre 28, 2012
Muchas gracias. Era exactamente lo que necesitaba, ya tengo una macro con las acciones a realizar, solo me falta enlazar todo con la respuesta de cada boton al programa original. Imaginate lo desesperado que andaba por eso que habia hecho un menu que funcionaba introduciendo 1, 2 o 3 en un inputbox (Arcaico no? jeje). De verdad muchas gracias
ResponderEliminar
Respuestas
Luis Reyesenero 22, 2014
Excelente, muchas gracias!!
ResponderEliminar
Respuestas
Franciscoseptiembre 15, 2014
Tengo una macro asignada a un botón ActiveX y le quiero poner la función vbokcancel pero cuando le doy a cancelar me ejecuta la macro igualmente.
La macro se llama "Confirma", el texto del mensaje es: deseas confirmar la factura? con un icono de advertencia y con el titulo de la ventanilla...Mensaje de advertencia.
Soy nuevo en esto, me podríais poner paso a paso tal y como lo tengo que poner pues me parece un poco lioso todavía, un saludo.
ResponderEliminar
Respuestas
Robertoseptiembre 16, 2014
hola. si me pueden ayudar se los agradeceria mucho.
Lo que quiero es cuando un usuario modifique o elimine algun contenido de una celda, que les aparezca un mensaje de si o no y que cuando el usuario escoja si, que pueda modifica o eliminar el contenido y cuando responda de que no, que no haga nada.
ResponderEliminar
Respuestas
Unknownoctubre 23, 2015
Hola Ismael, como estas?
tengo una duda, cuando toco el boton imprimir en la parte superior yo pedi que me aparesca un MsgBox advirtiendo si faltan datos y luego que aparezcan dos botones "aceptar" y "cancelar"

Private Sub Workbook_BeforePrint(cancel As Boolean)

MsgBox "FALTAN DATOS", vbYesNo

end sub

eso es facil , ahora como hago para asignar que aceptar me deje imprimir y cancelar no me deje.??
ResponderEliminar
Respuestas
Anónimooctubre 30, 2015
Buena tarde. Una ayuda importante. Tengo un archivo en excel que autosuma en una celda a medida que ingreso cantidades, multiplica por el valor unitario, y totaliza. La pregunta es: Cuando se alcanza un límite o cupo, que código debo escribir para que no me permita avanzar a la celda siguiente, hasta que cambie la cantidad? Gracias.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("e149").Value > 70000 Then
MsgBox ("Excedió su cupo Máximo $70.000!!!")
End If
ResponderEliminar
Respuestas
Anónimooctubre 30, 2015
Éste es el código que he colocado hasta ahora. Me genera el mensaje, pero me permite avanzar, La idea es que no lo permita hasta que cambie la ultima cantidad que excede el cupo o límite.
ResponderEliminar
Respuestas
Maycolmarzo 07, 2016
Hola deseo que me ayuden en algo, al pulsar la X de un MsgBox, el proceso continua. yo deseo que me ayuden como detener la macro al pulsar la X del cuadro de MsgBox. gracias
ResponderEliminar
Respuestas
Unknownjulio 09, 2016
HOla, sigue pendiente tu duda? YO cabo de implementar algo parecido en un libro que utilizo para calcular costos; luego de capturar datos y almacenarlos en otra hoja (con otra macro), agregué un botón de formulario que hace justo lo que quieres, despliega un msgbox en pantalla que pregunta si estás seguro de borrar los datos (no comprendo por que al borrarlos con una macro no funciona ctrl+z para "recuperarlos", si cancelas se cierra y no pasa nada, si aceptas borra y aparece otro msgbox: te comparto mi código:

Sub BorrarLona()
'
' BorrarLona Macro
'

Resultado = MsgBox("Confirme que desea borrar los datos. Este procedimiento NO es reversible.", vbOKCancel, "¡ADVERTENCIA!")
If Resultado = vbOK Then
Range("H18,K18,L18,M18,I22,J22,J24").Select
Range("J24").Activate
Selection.ClearContents
MsgBox "Datos eliminados"
Else
End If

End Sub

La clave para lo que quieres es usar If- Then, ligando el Then con el fin de la macro. Saludos!
ResponderEliminar
Respuestas
msalamanquezmarzo 22, 2017
Hola Ismael buenas tardes.
Muy interesante la función msgbox. Ya la estoy aplicando en el archivo que uso a diario y constantemente en mi trabajo. Sin embargo, me surge una duda, necesito aplicar msgbox en una hoja y el msgbox tiene que dar muchos mensajes según las condiciones que le indique. Por ejemplo:

Si la celda A1 es diferente a la celda A300 entonces el msgbox seria “Hay diferencia en las celdas A1 y A300, favor resisar”
Si la celda B1 es diferente a la celda B300 entonces el msgbox seria “Hay diferencia en las celdas B1 y B300, favor resisar”
Si la celda C1 es diferente a la celda C300 entonces el msgbox seria “Hay diferencia en las celdas B1 y B300, favor resisar”
Y así sucesivamente. Son más de 100 comparaciones que debe hacer la función msgbox en la hoja, y por ende será un mensaje para cada SI según cada caso. Estoy segura que es posible, pero no concibo la forma de hacerlo. Si está en tus manos poder ayudarme te lo agradezco de antemano.
ResponderEliminar
Respuestas