Vba Vlookup Date Range

[redridinghood74]

Some code;

Private Sub DateReminder()
Dim LastRow As Long
Dim yesterdaysDate As Date
Dim AlertDate As Date
Dim dateRange As Range
Dim foundDate As Range
Dim firstName As String
Dim lastName As String
Dim phoneNumber As String
Dim eMail As String
AlertDate = DateSerial(Year(Date), Month(Date), Day(Date - 2))
LastRow = Worksheets("BOOKINGS").Cells(Rows.Count, 1).End(xlUp).Row
Set dateRange = Worksheets("BOOKINGS").Range("H2:H" & LastRow)
For Each foundDate In dateRange
If DateValue(foundDate.Value) = DateValue(AlertDate) Then
firstName = foundDate.offset(0, 2).Value
lastName = foundDate.offset(0, 3).Value
phoneNumber = foundDate.offset(0, 5).Value
eMail = foundDate.offset(0, 6).Value
MsgBox &firstName & vbNewLine &lastName & vbNewLine &phoneNumber & vbNewLine &eMail
End If
Next foundDate
End Sub

(AlertDate) (dateRange)
03/11/17 != 03/11/17

Vba form uses EVALUATE to build dateRange values from comboboxes.

Matching date doesn't match, scratching head alot

 

[redridinghood74]

Experimenting for the past 5 hours, solved it myself

Private Sub DateReminder2()
Dim LastRow As Long
Dim firstName As String
Dim lastName As String
Dim phoneNumber As String
Dim eMail As String
Dim staff As String
LastRow = Worksheets("BOOKINGS").Cells(Rows.Count, 1).End(xlUp).Row
For Each fcell In Worksheets("BOOKINGS").Range("H2:H" & LastRow)
If fcell = Date + 3 And fcell <> "" Then
With Worksheets("BOOKINGS")
staff = fcell.offset(0, -6).Value
firstName = fcell.offset(0, -5).Value
lastName = fcell.offset(0, -4).Value
phoneNumber = fcell.offset(0, -2).Value
eMail = fcell.offset(0, -1).Value
End With
MsgBox staff & " : " & fcell & vbNewLine & firstName & " " & lastName & vbNewLine & phoneNumber & vbNewLine & eMail, vbOKOnly, "Booking Reminder"
End If
Next
End Sub