Filter Range

Hello. Let's guess:

a) Apparently, you have your TextBox1 "floating" above the active sheet.
b) Via 'LinkedCell', this TextBox1 appears to be linked to cell E3: this is not necessary to articulate the filter.
c) It seems that you write a number in TextBox1 that is part of a number with more digits.
d) The latter means that AutoFilter is not the right tool to filter your list.
e) You have to use the Advanced Filter as follows:

PHP Code: 

Option Explicit
Dim tbl As ListObject

Private Sub TextBox1_Change()
Dim C As Range
Set tbl = ListObjects("EmpList"): tbl.Range.AutoFilter
Set C = tbl.DataBodyRange.Find(What:=TextBox1, LookIn:=xlFormulas, LookAt:=xlPart)
If Not C Is Nothing Then
  Set C = Intersect(C.EntireColumn, tbl.Range)
  [r2:r3] = Application.Transpose(Array(Empty, _
    "=IsNumber(Search(" & TextBox1 & ", " & C(2).Address(0, 0, , True) & "))"))
  C.AdvancedFilter 1, [r2:r3], , False: [r2:r3].ClearContents
End If
End Sub

Sub clearFilter()
  tbl.Range.AutoFilter
End Sub 


Of course: the displayed VBA code must go in the sheet module.
.

For example like this:

.
While I'm thinking about how to do it, don't forget to 'click' the * at the bottom-left of post #4.

When searching for dates, will you be looking for a specific date or a range of dates?

Hello. Analyze this new data configuration:

PHP Code: 

Option Explicit
Dim tbl As ListObject

Sub applyFilter()
  ListObjects("EmpList3").Range.AdvancedFilter 1, [c1].CurrentRegion.Rows("1:2"), , False
End Sub

Sub clearFilter()
  ListObjects("EmpList3").Range.AutoFilter: ActiveCell.Activate
End Sub