ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Pop Reminder (https://www.excelbanter.com/excel-programming/409492-pop-reminder.html)

tmdrake

Pop Reminder
 
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

Office_Novice

Pop Reminder
 
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


cht13er

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


All times are GMT +1. The time now is 11:12 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com