Message box

R

Richard

I have 2 automatic drafts due on the 15th of every month.
Is there a way to have a message box pop up a few days
earlier to remind me to post it.
 
D

Don Guillett

Would something like this work in your workbook_open event of the
ThisWorkbook module?
Sub reminder()
If Day(Date) = 13 Then MsgBox "Post Drafts"
End Sub
 
M

Max

Perhaps as an alternative "tickler",
tinker around with this set-up .. :

Put in say, A1:

=IF(AND(DAY(TODAY())>=5,DAY(TODAY())<15),"Reminder: Post the Auto-Drafts -
due on 15th",IF(DAY(TODAY())=15,"Auto-Drafts are due
today!",IF(AND(DAY(TODAY())>15,DAY(TODAY())<=18),"Auto-Drafts posted
??","")))

Select A1

Click Format > Conditional Formatting

Under Conditions 1, 2 and 3,
make the settings as "Formula Is" and put:

For Condition 1
=AND(DAY(TODAY())>=10,DAY(TODAY())<15)

For Condition 2
=DAY(TODAY())=15

For Condition 3
=AND(DAY(TODAY())>15,DAY(TODAY())<=18)

For each Condition:
Click the Format button and format to taste,
for example: different fill colors, bold fonts .. etc

Click OK at the main dialog
--
The above settings will monitor and
prompt the appropriate messages
with the conditional formats as applied in cell A1
for 3 periods:

a. Between 5th and 14th
b. On the 15th itself
c. Between the 16th and 18th
 
B

Bob Umlas

Would be better to put it in the open event of the personal.xls, so THAT wb
need not be open, just Excel.
Private Sub Workbook_Open()
If Day(Date) >=12 and day(Date)< 15 Then MsgBox "Post Drafts"
End Sub

Bob Umlas
Excel MVP
 
Top