marc5051
11-08-2011, 12:47 PM
Hi All..
here i am looking for date reminder for current and previous day.
here is the code for current day reminder. but don't know what to do reminder for previous day (YESTERDAY).
any help or suggestion is most appreciated.
...Marc
Option Explicit
Dim cl As Range
Private Sub ListBox1_Click()
Set cl = Sheet1.UsedRange.Find(Me.ListBox1.Value, LookIn:=xlValues)
cl.Select
End Sub
Private Sub UserForm_Initialize()
Dim rDates As Range
Me.Caption = "appointments due: " & Format(Date, "long date")
With Sheet1
Set rDates = .Range(.Cells(3, 2), .Cells(.Rows.Count, 2).End(xlUp))
End With
For Each cl In rDates
If cl.Value = Date Then Me.ListBox1.AddItem cl.Offset(0, -1).Value
Next cl
End Sub
here i am looking for date reminder for current and previous day.
here is the code for current day reminder. but don't know what to do reminder for previous day (YESTERDAY).
any help or suggestion is most appreciated.
...Marc
Option Explicit
Dim cl As Range
Private Sub ListBox1_Click()
Set cl = Sheet1.UsedRange.Find(Me.ListBox1.Value, LookIn:=xlValues)
cl.Select
End Sub
Private Sub UserForm_Initialize()
Dim rDates As Range
Me.Caption = "appointments due: " & Format(Date, "long date")
With Sheet1
Set rDates = .Range(.Cells(3, 2), .Cells(.Rows.Count, 2).End(xlUp))
End With
For Each cl In rDates
If cl.Value = Date Then Me.ListBox1.AddItem cl.Offset(0, -1).Value
Next cl
End Sub