Thread: Reminder pop-up
View Single Post
  #11   Report Post  
Posted to microsoft.public.excel.programming
Tom Ogilvy Tom Ogilvy is offline
external usenet poster
 
Posts: 27,285
Default Reminder pop-up

Right click on the sheet tab and select view code. In the resulting module,
in the left dropdown at the top of the module, select Worksheet and from the
right dropdown, select Activate. This will place the Worksheet_Activate
event in the module:

Private Sub Worksheet_Activate()

End Sub

in this declaration, you can place code to show a popup box by checking
against conditions on that sheet. Say your dates are in column C

Private Sub Worksheet_Activate()
Dim rng as Range, dt as Date
Dim cell as Range
set rng = Me.Range(me.Cells(2,"C"),me.cells(rows.count,"C"). End(xlup))
set dt = Date + 7
for each cell in rng
if cell.Value <= dt and cell.Value = Date then
msgbox Me.Cells(cell.row,"A").Value & " has an event on " _
vbNewLine & cell.Text
end if
Next
End Sub


This looks and sees if there is an event in the next 7 days.

Adjust to suit you needs.

Chip Pearson's page giving an overview of Events.

--
Regards,
Tom Ogilvy



"Digital2k" wrote in message
...
OK, Thank you, since this is a macro, Please explain how to set it up in
laymen's terms.
Thanks in advance for your patients.
Digital2k

"Don Guillett" wrote in message
...
formulas have = preceding them. This is a macro
You did say POP UP. formulas don't pop up.
However, the conditional formatting solution may fit your needs.

--
Don Guillett
SalesAid Software

"Digital2k" wrote in message
...
Thank you,
I don't mean to appear ignorant but where am I entering this formula?
When I add the = with the formula in the cell I get a error.


"Chip Pearson" wrote in message
...
Better to use

If Date = DateSerial(Year(Date),7,23) Then MsgBox "hh"

in case of international date formats.

--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Don Guillett" wrote in message
...
try
If Date = DateValue("7/23/" & Year(Date)) Then MsgBox "hh"

--
Don Guillett
SalesAid Software

"Digital2k" wrote in message
...
Hello group,

Is it possible to have a pop-up window that reminds me of a birthday
or anniversary etc. I realize Outlook can do this for me but I'm in
sales and I have a spreadsheet with a customer database and sales
tracker. It would be convenient to have that all in one spreadsheet.
I'm not an expert in excel yet, can anyone point me in the right
direction?
Thanks,
Digital2k