Ejecutar macro en una fecha determinada

23/08/2008 - 13:10 por Rafa | Informe spam
Hola a todos:

Me han pasado esta macros que se ejecuta correctamente a partir de una
fecha determinada y funciona
correctamente. Quisiera codificarla para para que actué cuando la
fecha esta en la columna C y no en una
sola celda.
He realizado varias pruebas y no lo consigo.

¿Alguno de vosotros me puede ayudar?

GRACIAS


Private Sub Workbook_Open()
Application.DisplayAlerts = f
Dim Fecha As Date
Dim Hoy As Date
Fecha = Format(Worksheets("Diario").Range("C1"), "dd/mm/yyyy")
Hoy = Format(Now(), "dd/mm/yyyy")
If Hoy > Fecha Then
MsgBox "La fecha máxima de uso ya se cumplió, el archivo se cerrará",
vbCritical
Application.DisplayAlerts = True
Application.Quit
End If
End Sub
 

Leer las respuestas

#1 Héctor Miguel
23/08/2008 - 20:31 | Informe spam
hola, Rafa !

Me han pasado esta macros que se ejecuta correctamente a partir de una fecha determinada y funciona correctamente.
Quisiera codificarla para para que actue cuando la fecha esta en la columna C y no en una sola celda.
He realizado varias pruebas y no lo consigo.
Alguno de vosotros me puede ayudar?



el codigo que expones ya se ejecuta cuando la fecha esta en la columna C (en la fila 1)
si necesitas modificar para cualquier otra fila... hay que decirle al codigo cual es "la fila" -???-
- tienes ya la forma de indicarle en cual fila de la columna C (u otra) debe encontrar "cual fecha" ?

saludos,
hector.

__ el codigo expuesto __
Private Sub Workbook_Open()
Application.DisplayAlerts = f
Dim Fecha As Date
Dim Hoy As Date
Fecha = Format(Worksheets("Diario").Range("C1"), "dd/mm/yyyy")
Hoy = Format(Now(), "dd/mm/yyyy")
If Hoy > Fecha Then
MsgBox "La fecha maxima de uso ya se cumplio, el archivo se cerrara", vbCritical
Application.DisplayAlerts = True
Application.Quit
End If
End Sub

Preguntas similares