Display message if date is exceeded

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
 
B

Bob Phillips

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)
 
R

rocky 123

Thanks a lot, you really helped me out there! I see where I was goin
wrong now!

cheer
 
Top