Thread: Pop Reminder
View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
cht13er cht13er is offline
external usenet poster
 
Posts: 141
Default Pop Reminder

On Apr 16, 5:58 pm, Office_Novice
wrote:
Change Ranges to suit and bobs your uncle.

Sub Pop()

Dim PopDate As Range
Dim DueDate As Range

Set PopDate = Range("A1")
Set DueDate = Range("B1")

If PopDate = DueDate - 3 Then
MsgBox "Riminder goes here"
End If

End Sub

"tmdrake" wrote:
I have a excel spreadsheet that contains the date a request is received and
the date the request is due to the customers. How do I create a popup that
alerts the user three days prior to the due date, which request are due? I
will need for the popup to activate everytime the spreadsheet is opened.


Thanks you much
--
tmdrake


If you want this to run every time the worksheet is opened, place this
code in "ThisWorkbook" code section in the Visual Basic Editor (Alt
+F11 from Excel):

Private Sub Workbook_Open()
Dim PopDate As Range
Dim DueDate As Range

Set PopDate = Range("A1")
Set DueDate = Range("B1")

If PopDate = DueDate - 3 Then
Call MsgBox("This is a reminder that requests are
due.",vbokonly,"Notice")
End If

End Sub


If you want to produce a list of requests that are due, you could do
that too - it's just a matter of making an array of all cases in which
they're due (post here if you need more help).
HTH

Chris