Display message if date is exceeded

  • Thread starter Thread starter rocky 123
  • Start date Start date
R

rocky 123

I was wondering whether help me with this small problem please?

I am creating a system, and part of it involves a reminder to come u
when the date written in, is reached.

I have used the formula =Today() to bring up todays date in a cell. I
another cell the user types in another date (eg. a week later) and m
plan is for when that date is reached for a reminder to come up (
message box).

Does anyone know a way to go about this? I believe using some sort o
code in VBA would work, but i'm not quite what code.

Thankyou, look forward to hear from you, thank
 
Rocky,

The TODAY() function will reflect the current date at any time, so today it
shows 21/02, tomorrow it will show 22/02. You need to input the date with
Ctrl-;, which will provide a non-changing date.

Then add this code to a standard code module

Sub Auto_Open()

If Date >= Worksheets(1).Range("A1").Value Then
Msgbox "Date has been reached"
End If

End Sub

Adjust to suit.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Back
Top