MsgBox containing text from cell
What does F29 really contains:
Text "Wed" or due date formatted like "ddd"?
A text never equals a real date value!
Where is the real due date?
If F29 contains real due date (formatted as date), then apply
If ThisWorkbook.Sheets("Instructions").Cells("F29") = Date Then
....
Regards,
Stefi
€˛Nick Smith€¯ ezt Ć*rta:
Folks,
Struggling with the MsgBox function.
I want a MsgBox to come up when it is the day a report is due. I have
defined the report title in one cell and the due day in another cell, eg
ThisWorkbook.Sheets("Instructions").Cell C29 contains "Status Report" and
ThisWorkbook.Sheets("Instructions").cell F29 contains "Wed". I want the
message to read "Reminder.... Project Status Report due today" with an OK
button to acknowledge when it is the day the report is due.
ThisWorkbook.Sheets("Instructions").Cell B1 contains the today() function to
define today's date.
However, if Cell C29 is empty, then no MsgBox should appear at all. That is
to say that the reminders are essentially user defined.
Was thinking along the lines of:
Private Sub ReminderMessageOnOpening()
If ThisWorkbook.Sheets("Instructions").Cells("C29") < "" Then
If ThisWorkbook.Sheets("Instructions").Cells("F29") =
ThisWorkbook.Sheets
("Instructions").B1 Then
MsgBox("Reminder.... Project" &C29 "due" today)
End If
End If
End Sub
Can anyone help please as I am struggling with this one.
Thanks in advance,
Nick
|