Re: Recordatorio en Excel

[dave]

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