Demo entry 6881445

Excel Consultor

   

Submitted by W on Sep 11, 2019 at 03:14
Language: VBScript. Code size: 584 Bytes.

Sub AceptarCancelar()

Dim Pregunta As Integer


Pregunta = MsgBox("¿Deseas continuar?", vbOKCancel, "Excel Consultor")


    If Pregunta = 2 Then MsgBox "Se canceló la ejecución", , "Excel Consultor": Exit Sub

   
    'Se puede usar este botón para ejecutar macros

    'cuya ejecución dependerá si se presiona el botón aceptar.

    
    ' === > .................... En este espacio colocaríamos la acción a realizar.

   
    MsgBox "Se ejecutó satisfactoriamente", , "Excel Consultor"

   
    'Terminada la ejecución se puede mostrar un mensaje.

End Sub

This snippet took 0.00 seconds to highlight.

Back to the Entry List or Home.

Delete this entry (admin only).