Ejecutar una macro a una hora determinada

Son muchos los usuarios que llegan a este blog, buscando como se puede ejecutar una macro a una hora determinada. Realmente hasta el día de hoy, no había explicado como se hacía esto, así que aprovecharé la oportunidad para dar respuesta a las inquietudes de estos usuarios.

Antes de nada, quiero daros mi opinión sobre este macro que hoy veremos. Sinceramente no me gusta nada eso de ejecutar una macro a una hora determinada, porque puede interferir en otros usos que estemos haciendo con la hoja de cálculo. Por ejemplo, podemos estar trabajando con un fichero Excel, y no acordarnos de que a las 18:00 h., se va a cerrar automáticamente Excel sin previo aviso, y sin grabar los últimos cambios que hayamos realizado. Claro, si te sucede eso, pillas un buen cabreo...

En fin, comentarios aparte, vamos a ver como podemos ejecutar una macro a una hora determinada. Como siempre, lo veremos con un ejemplo. En este caso, lo que haremos será mostrar un mensaje cuando den las 18:00 h., avisándonos de que finaliza nuestra jornada laboral. El macro que grabaremos en un módulo, será este:

Sub Auto_open() 'Lanzamos el macro llamado mensajillo, 'cuando den las 6 de la tarde Application.OnTime TimeValue("18:00:00"), "mensajillo" End Sub

Como podéis ver, entre comillas aparece un texto llamado mensajillo. Pues bien, ese es el nombre del macro que se ejecutará a las 18:00 h., y que no es otro que este (que tendremos que grabar también en un módulo):

Sub mensajillo() 'lanzamos un mensaje, para avisar que es la 'hora de tomarse una cervecita fuera de la oficina MsgBox ("Son las 18:00 h., hora de salir de la oficina. ¡Yuhuuuu!") End Sub

Cuando lleguen las 18:00 h., nos aparecerá este bonito mensaje en pantalla, siempre que no hayamos cerrado el fichero que ejecuta estas macros (o no hayamos cerrado Excel, si tenemos los tenemos en el libro personal de macros):


Con esto, ya lo tenemos todo hecho. ¿Facilito, verdad?. Pues ahora solo nos queda por dar respuesta a algunas dudas.

¿Por qué tiene ese nombre tan raro el macro?. ¿Qué es eso de Auto_open()?. Pues es el nombre que obligatoriamente debe tener el macro para que al abrir el fichero, empiece a contar el tiempo, y que cuando den las 18:00 h. nos avise. Evidentemente, deberá estar abierto el fichero, para que eso suceda, pues en caso contrario no nos aparecerá el aviso. En lugar de crear ese macro Auto_open() en un módulo VBA, podemos hacer lo mismo llamando al evento Open a través de un macro llamado Workbook_Open(), dentro de ThisWorkbook, en lugar de hacerlo en un módulo.

¿Tengo que tener siempre abierto -aunque sea minimizado-, el fichero donde tengo ese "contador" de tiempo?. No necesariamente. Puedes grabar el macro en el libro personal de macros. Este libro está siempre "latente" para cuando lo necesitemos, pero oculto, por lo que el macro se ejecutará a la hora programada, siempre y cuando tengas abierto Excel, claro está.

Si en lugar de ejecutar el macro con ese mensaje a las 18:00h., quisiéramos que se ejecutase al cabo de 30 minutos contados a partir de ese mismo instante, es decir, a partir de la hora que pongamos en marcha el "contador", entonces deberemos cambiar el macro inicial, por este otro:

Sub Auto_open() 'Lanzamos el macro llamado mensajillo, '30 minutos después de ejecutar este Auto_open, 'que es cuando ponemos en marcha el contador de tiempo Application.OnTime Now + TimeValue("00:30:00"), "mensajillo" End Sub