Ejecutar Macro luego de 15 segundos. Objeto Application - Método OnTime

EL siguiente método que vamos a repasar a continuación es muy útil para la personalización de nuestros trabajos en Excel.

Puede que en alguna ocasión tuviéramos la necesidad de ejecutar una macro no a partir de dar clic en un objeto o dando ejecutar desde la ventana del Editor VBA; específicamente la necesidad se trata de ejecutar una macro luego de que transcurra un tiempo en el libro. Precisamente esa es una de las aplicación que tenemos con el método OnTime del Objeto  Application

Método OnTime: Permite aplicar un control de tiempo para la ejecución de macros.

Desde Excel abrimos el Editor VBA (Alt + F11), insertamos un Módulo (Clic derecho sobre el proyecto Excel, Insertar, Módulo:

Damos doble Clic en el nuevo módulo y pegamos el siguiente código:

Sub EjecutarMacroLuegode15Segundos()

Application.OnTime Now + TimeValue("00:00:15"), "Mensaje"

End Sub

Sub Mensaje()

MsgBox ("Hola, este mensaje apareció luego de 15 segundos")

End Sub

Aca tenemos dos macros, la primera se llama EjecutarMacroLuegode15Segundos y la segunda Mensaje; veamos lo que significa cada línea de la macro 1

  1. La primera línea Sub EjecutarMacroLuegode15Segundos (), indica el inicio de la macro.
  2. En la segunda línea estamos utilizando del Objeto Application el método OnTime el cual se utiliza para operar macros automáticamente en función del tiempo Para indicar el tiempo, utilizamos la función Now (Ahora) más la función TimeValue en la que se indica en el valor de segundos, 15. Finalmente se debe establecer cuál es la macro que ejecutará una vez transcurran los segundos indicados y en este caso la macro se llama Mensaje que es la que encontramos al final de la macro 1.
  3. La última línea marca el fin (End) de la Macro o Subrutina (Sub)

Para la macro 2 llamada Mensaje tenemos:

  1. La primera línea Sub Mensaje (), indica el inicio de la macro.
  2. En la segunda línea estamos lanzando un mensaje de bienvenida sencillo con el uso de la función MsgBox.
  3. La última línea marca el fin (End) de la Macro o Subrutina (Sub)

Ahora solo queda ejecutar la macro y luego de 15 segundos aparece el mensaje:

Descargar archivo de trabajo.

MÁS SOBRE

Gerencie.com en su correo.

Suscríbase y nosotros colocaremos en su bandeja de entrada la mejor información que generamos diariamente.

Siéntase libre de opinar

En Gerencie.com está permitido opinar, criticar, discutir, controvertir, disentir, etc. Lo que no está permitido es insultar o escribir palabras ofensivas o soeces. Si lo hace, su comentario será rechazado por el sistema o será eliminado por el administrador. Por último, trate de no escribir en mayúscula sostenida, resulta muy difícil leerle.