Pop up reminder message in excel
Closed
Blane
-
Nov 28, 2015 at 10:27 AM
vcoolio
vcoolio
- Posts
- 1352
- Registration date
- Thursday July 24, 2014
- Status
- Moderator
- Last seen
- July 19, 2022
Related:
- Get pop up window alert in excel when a date is reached
- Excel birthday reminder pop up message - Best answers
- Popup reminder in excel - Best answers
- DUE DATE ALERT FROM EXCEL FILE WHEN WINDOWS STARTUP - Forum - Excel
- Pop up message in excel (like outlook agenda) - Forum - Outlook
- Turn off windows alert sound - Guide
- How to remove genuine windows alert ✓ - Forum - Windows
- Pop-up window not opening in internet explorer 11 ✓ - Forum - Viruses/Security
2 replies
vcoolio
Nov 29, 2015 at 11:04 PM
- Posts
- 1352
- Registration date
- Thursday July 24, 2014
- Status
- Moderator
- Last seen
- July 19, 2022
Nov 29, 2015 at 11:04 PM
Hello Blane,
Perhaps the follwing codes may help you:-
Pop-up messages will appear to advise you as per your post (I think!). They will appear one after the other depending on how many cells are affected. So, once you click on OK in the pop-up message box, the next affected cell details will be displayed etc.. The first code calls the second code on completion of its "cycle".
Following is a link to my test work book which will show you how the code works. Just click on the "Warnings!" button. The dates that I have used in the example are just random so change these to suit yourself.
https://www.dropbox.com/s/t22rs8wuwv4cplo/Blane.xlsm?dl=0
I hope that this helps.
Cheerio,
vcoolio.
Perhaps the follwing codes may help you:-
Sub Advise() Dim x As Integer Dim lRow As Long lRow = Range("E" & Rows.Count).End(xlUp).Row For Each cell In Range("E2:E" & lRow) x = cell.Row r1 = Range("A" & x) 'Location r2 = Range("B" & x) 'Maintenance Task r3 = Range("E" & x) 'Notification Due Date If cell = [today()] Then MsgBox "NOTIFICATIONS ARE DUE TO BE SENT TODAY!" & vbNewLine & "Location : " & r1 & vbNewLine & "Maintenance Task: " & r2 & _ vbNewLine & "Notification Due Date: " & r3, vbExclamation, "WARNING!" End If Next Advise2 End Sub Sub Advise2() Dim I As Integer Dim lRow As Long lRow = Range("E" & Rows.Count).End(xlUp).Row For I = 2 To lRow r1 = Cells(i, 1) 'Location r2 = Cells(i, 2) 'Maintenance Task r3 = Cells(i, 4) 'Maintenance Due Date If Cells(i, 5) >= [today()] And Cells(i, 6) = "" Then MsgBox "NOTIFICATIONS ARE OVERDUE!" & vbNewLine & "Location : " & r1 & vbNewLine & "Maintenance Task: " & r2 & _ vbNewLine & "Maintenance Due Date: " & r3, vbExclamation, "WARNING!" End If Next i End Sub
Pop-up messages will appear to advise you as per your post (I think!). They will appear one after the other depending on how many cells are affected. So, once you click on OK in the pop-up message box, the next affected cell details will be displayed etc.. The first code calls the second code on completion of its "cycle".
Following is a link to my test work book which will show you how the code works. Just click on the "Warnings!" button. The dates that I have used in the example are just random so change these to suit yourself.
https://www.dropbox.com/s/t22rs8wuwv4cplo/Blane.xlsm?dl=0
I hope that this helps.
Cheerio,
vcoolio.
Mar 25, 2016 at 11:23 AM
Thanks in Advance