Ejecutar macro hasta cierto día
Hola, necesito que me hagan un favor.
Quiero hacer una macro que se pueda ejecutar hasta cierta fecha, es decir, la puedo usar desde el 01 abril y cuando llegue el día 30 se detenga.
Me podrían ayudar.
Quiero hacer una macro que se pueda ejecutar hasta cierta fecha, es decir, la puedo usar desde el 01 abril y cuando llegue el día 30 se detenga.
Me podrían ayudar.
1 respuesta
Respuesta de vorkosigan
1
Añade estas líneas al comienzo de tu macro:
dim FechaActual, FechaLimite as date
dim fecha as string
fechaActual= Date
FechaLimite= CDate(Fecha)
if FechaActual > FechaLimite then
msgbox "Time Out"
exit sub
end if
'resto de la macro...
dim FechaActual, FechaLimite as date
dim fecha as string
fechaActual= Date
FechaLimite= CDate(Fecha)
if FechaActual > FechaLimite then
msgbox "Time Out"
exit sub
end if
'resto de la macro...
