Private Sub Workbook_Open()
Dim Issue As String
Dim RowNrNumeric As Integer
Dim RowNrString As String
Dim CloumnNameIssue As String
Dim CloumnNameDate As String
Dim CloumnNameRemStatus As String
Dim DueDate As Date
Dim RemStatus As String
Dim TextDay As String
Dim TextMonth As String
Dim TextYear As String
CloumnNameIssue = "A"
CloumnNameDate = "B"
CloumnNameRemStatus = "C"
RowNrNumeric = 2
RowNrString = RowNrNumeric
Issue = Range(CloumnNameIssue + RowNrString).Value
DueDate = Range(CloumnNameDate + RowNrString).Value
RemStatus = Range(CloumnNameRemStatus + RowNrString).Value
Do While Issue <> ""
If (RemStatus = "ON" And DateDiff("d", DueDate, Date) >= 0) Then
TextDay = Day(DueDate)
TextMonth = Month(DueDate)
TextYear = Year(DueDate)
MsgBox "Remider:" + " " + Issue + " DUE DATE is : " + TextMonth + "/" + TextDay + "/" + TextYear, vbYesNo, "REMINDER LIST"
Range(CloumnNameDate + RowNrString).Interior.ColorIndex = 3
End If
RowNrNumeric = RowNrNumeric + 1
RowNrString = RowNrNumeric
Issue = Range(CloumnNameIssue + RowNrString).Value
DueDate = Range(CloumnNameDate + RowNrString).Value
RemStatus = Range(CloumnNameRemStatus + RowNrString).Value
Loop
End Sub
HI
I found this code online which gives you reminders when you open excel what I would like is to have a button on the msg box "dismiss" or "keep"
if I press “dismiss” it changes that particular Reminder to off, it I press “keep” it keeps it to on
The default is on when I create the reminder on my reminder list sheet
MY REMINDER LIST SHEET LOOKS LIKE THIS
<tbody>
</tbody>
Dim Issue As String
Dim RowNrNumeric As Integer
Dim RowNrString As String
Dim CloumnNameIssue As String
Dim CloumnNameDate As String
Dim CloumnNameRemStatus As String
Dim DueDate As Date
Dim RemStatus As String
Dim TextDay As String
Dim TextMonth As String
Dim TextYear As String
CloumnNameIssue = "A"
CloumnNameDate = "B"
CloumnNameRemStatus = "C"
RowNrNumeric = 2
RowNrString = RowNrNumeric
Issue = Range(CloumnNameIssue + RowNrString).Value
DueDate = Range(CloumnNameDate + RowNrString).Value
RemStatus = Range(CloumnNameRemStatus + RowNrString).Value
Do While Issue <> ""
If (RemStatus = "ON" And DateDiff("d", DueDate, Date) >= 0) Then
TextDay = Day(DueDate)
TextMonth = Month(DueDate)
TextYear = Year(DueDate)
MsgBox "Remider:" + " " + Issue + " DUE DATE is : " + TextMonth + "/" + TextDay + "/" + TextYear, vbYesNo, "REMINDER LIST"
Range(CloumnNameDate + RowNrString).Interior.ColorIndex = 3
End If
RowNrNumeric = RowNrNumeric + 1
RowNrString = RowNrNumeric
Issue = Range(CloumnNameIssue + RowNrString).Value
DueDate = Range(CloumnNameDate + RowNrString).Value
RemStatus = Range(CloumnNameRemStatus + RowNrString).Value
Loop
End Sub
HI
I found this code online which gives you reminders when you open excel what I would like is to have a button on the msg box "dismiss" or "keep"
if I press “dismiss” it changes that particular Reminder to off, it I press “keep” it keeps it to on
The default is on when I create the reminder on my reminder list sheet
MY REMINDER LIST SHEET LOOKS LIKE THIS
ISSUE | DUE DATE | REMINDER STATUS |
TEST | 06/19/2017 | ON |
<tbody>
</tbody>