Finding a date through an Input Box

[SarahB]

I want to be able to find a date in a set range as specified through an input box. Dates for some reason seem to cause me a problem - any ideas?

 

[Richie(UK)]

Hi SarahB,

See if you can modify the following to suit your requirements:

<pre>Sub findit()
Dim FindMe As Date, c As Range, TestArea As Range
Dim firstaddress As String

GetDate:
FindMe = InputBox("Please enter the search date below." & _
vbLf & vbLf & "Use this format DD/MM/YY.", "Date Entry")
If Not IsDate(FindMe) Then
MsgBox "You didn't enter a date!"
GoTo GetDate
End If

Set TestArea = ThisWorkbook.Sheets("Sheet1").Range("A1:A20")

With TestArea
Set c = .Find(What:=FindMe, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If Not c Is Nothing Then
firstaddress = c.Address
Do
c.Interior.ColorIndex = 4
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
End With

Set TestArea = Nothing
Set c = Nothing

End Sub</pre>

HTH