MsgBox en linea de codigo
Sub ejecutar_macro()
'En esta parte va tu macro
MsgBox "ARCHIVAR"
PegaDatosDeBonos
End Sub
Cuando estoy posicionado en un celda me tira el msgbox, cuando acepto ejecuta la macro, pero cundo apretó la cruz o esc la macro se ejecuta igual como tengo que hacer para que no lo haga muchísimas gracias
1 respuesta
Respuesta de Elsa Matilde
2
Si utilizas un msgbox con 2 opciones, podés comparar su devolución:
Sub ejecutar_macro()
'x Elsamatilde
decido = MsgBox("Se inicia el proceso ARCHIVAR. Acepta o Cancela", vbOKCancel, "CONFIRMAR")
If decido = vbOK Then 'se ejecuta solo si se acepta
Call PegaDatosDeBonos
Else
'opcional: aquí puede ir otro proceso para cuando se cancela el mensaje
End If
End SubSi no tiene que hacer nada en caso de cancelar o cerrar, la podés simplificar de este modo:
Sub ejecutar_macro()
'x Elsamatilde
decido = MsgBox("Se inicia el proceso ARCHIVAR. Acepta o Cancela", vbOKCancel, "CONFIRMAR")
If decido = vbOK Then Call PegaDatosDeBonos
End SubAjustá el mensaje a tu gusto.
Nota: el uso de 'Call' es opcional, pero recomendable para cuando quieras buscar la llamada a otra subrutinas.
