Recordatorio en Excel

alvarog escribió el 11/02/2013 10:07 :

¡ Hola ! Por favor podrian ayudarme, necesito generar una serie de
alertas (mensajes) dependiendo de un rango de celdas con formato fecha, algo
parecido a los recordatorios de las reuniones o citas de Outlook...Es posible?

Y que condición se requiere para la alerta??

dave escribió el 12/02/2013 01:56 :

alvarog escribió el 11/02/2013 10:07 :

¡ Hola ! Por favor podrian ayudarme, necesito generar una serie de
alertas (mensajes) dependiendo de un rango de celdas con formato fecha, algo
parecido a los recordatorios de las reuniones o citas de Outlook...Es posible?

Y que condición se requiere para la alerta??

Gracias, segun un campo de fecha y hora debe alertar cuando estas esten proximas, pero debe verificar varios registros es una base de datos con un campo de fecha y hora independiente, es parecido a las citas marcadas en Outlook, el cual te avisa antes de cada una de ellas....

alvarog escribió el 13/02/2013 22:31 :

dave escribió el 12/02/2013 01:56 :

alvarog escribió el 11/02/2013 10:07 :

¡ Hola ! Por favor podrian ayudarme, necesito generar una serie de
alertas (mensajes) dependiendo de un rango de celdas con formato fecha, algo
parecido a los recordatorios de las reuniones o citas de Outlook...Es
posible?

Y que condición se requiere para la alerta??

Gracias, segun un campo de fecha y hora debe alertar cuando estas esten
proximas, pero debe verificar varios registros es una base de datos con un
campo de fecha y hora independiente, es parecido a las citas marcadas en
Outlook, el cual te avisa antes de cada una de ellas....

Con estos procedimientos te envía una alerta y te indica la celda que cumple la condición, deberás programarla a un botón o cuando se abra el archivo.

' Este procedimiento te envía un mensaje cuando la fecha de la celda es mayor 1 día a la fecha del día en que corras la macro, suponiendo que tu columna con las fechas esta en la columna A.

Sub Para_Fecha()

Range("A2").Activate

dia_hoy = Day(Date)
mes_hoy = Month(Date)
año_hoy = Year(Date)

Do While ActiveCell.Value <> ""

dia = Day(ActiveCell.Value)
mes = Month(ActiveCell.Value)
año = Year(ActiveCell.Value)
If año = año_hoy And mes = mes_hoy And dia - 1 = dia_hoy Then
MsgBox "Falta un día : " & ActiveCell.Address, vbOKOnly, "Prueba"
End If
ActiveCell.Offset(1, 0).Activate
Loop
End Sub

' Este procedimiento te envía un mensaje cuando la hora de la celda es mayor una hora a la hora del en que corras la macro, suponiendo que tu columna con horas esta en la columna B.

Sub Para_Hora()

Range("B2").Activate

Hora_hoy = Hour(Time)
Min_Hoy = Minute(Time)


Do While ActiveCell.Value <> ""

Hora = Hour(ActiveCell.Value)
Minuto = Minute(ActiveCell.Value)

If Hora_hoy = Hora - 1 Then
MsgBox "Falta una hora : " & ActiveCell.Address, vbOKOnly, "Prueba"
End If
ActiveCell.Offset(1, 0).Activate
Loop
End Sub