alerts out of a spreadsheet based on dates

[specops]

Is it possible to get email alerts or pop ups from an excel spreadsheet.
If a spreadsheet contains a list of annual dates which need to be responded too when the dates are reached in real time.

[geekgirlau]

Here's a quick sample: you could add this code to the Open event for the workbook.


Sub ShowReminder()
Dim rng As Range
Dim strMsg As String

For Each rng In shReminder.Range("ReminderDate")
' has an alert already been given?
If rng.Offset(0, 1).Formula <> "Yes" Then
' have we reached the reminder date?
If rng.Value <= Date Then
strMsg = strMsg & _
Format(rng, "dd-mmm-yy") & _
vbTab & rng.Offset(0, 2).Formula & vbCrLf

rng.Offset(0, 1).Formula = "Yes"
End If
End If
Next rng

If strMsg <> "" Then
MsgBox strMsg, vbExclamation, "Reminders"
End If
End Sub

[specops]

thanks. could you send the .xls attachment again.

[geekgirlau]

Hi specops,

You can download the attachment as often as you like - just click on the link above.