SPP Find Date in Table Column

[S P P]

Good afternoon!

Find Date in Table Column

How would VBA Locate data in column1 of a table

 

[S P P]

I got it like this

>>> as many times noted: <<<
>>> use code - tags <<<

Dim Tbl As ListObject
Dim Search As Date
Dim Rng As Range

       Search = Format(TextBox1.Value, "DD/MM/YYYY")

Set Tbl = ActiveSheet.ListObjects(1)

       On Error Resume Next
Set Rng = Tbl.DataBodyRange.Columns(1).Find(Search, LookAt:=xlWhole)
       On Error GoTo 0

    If Not Rng Is Nothing Then
       MsgBox "Date found successfully", vbQuestion, "successfully"
       Unload Me
       Rng.Select
     
Else
       MsgBox "The date cannot be found. try another?", vbInformation, "Not found"
       TextBox1.SetFocus
End If

 

[S P P]

>>> as many times noted: <<<
>>> use code - tags <<<

Search = Format(TextBox1.Value, "DD/MM/YYYY")

replace with

If TextBox1 <> "" Then Search = Format(TextBox1.Value, "DD/MM/YYYY")