Related:
- Get pop up window alert in excel when a date is reached
- Popup reminder in excel - Best answers
- Excel notification popup - Best answers
- Excel VBA Msg Box when cell meets criteria ✓ - Forum - Excel
- Due date reminder in excel 07 ✓ - Forum - Excel
- Popup reminder based on date and additional celll values ✓ - Forum - Excel
- DUE DATE ALERT FROM EXCEL FILE WHEN WINDOWS STARTUP - Forum - Excel
- Pop up message in excel (like outlook agenda) - Forum - Outlook
2 replies
vcoolio
- Posts
- 1260
- Registration date
- Thursday July 24, 2014
- Status
- Moderator
- Last seen
- February 3, 2020
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.
vcoolio
- Posts
- 1260
- Registration date
- Thursday July 24, 2014
- Status
- Moderator
- Last seen
- February 3, 2020
Hello Raj,
Your issue is a little different and may only require basic "IF" statements.
Please start a new thread and include a sample of your work book showing exactly what you are trying to achieve. Be careful with any sensitive data.
Upload a sample of your work book to a free file sharing site such as DropBox, ge.tt or SpeedyShare then post the link to your file in your new thread.
Someone should then be able to help you.
Cheerio,
vcoolio.
Your issue is a little different and may only require basic "IF" statements.
Please start a new thread and include a sample of your work book showing exactly what you are trying to achieve. Be careful with any sensitive data.
Upload a sample of your work book to a free file sharing site such as DropBox, ge.tt or SpeedyShare then post the link to your file in your new thread.
Someone should then be able to help you.
Cheerio,
vcoolio.
Subscribe To Our Newsletter!
Thanks in Advance