MODERATOR NOTICE: This topic has also been posted on other sites and may already have an answer elsewhere. Please take this into consideration when answering this question

Hi, Good day
so i have this problem,
my search/filter box it is working fine if the value is with text or number, but i have a column that is only for designated for Year. which is numeric only.
so in short my search box cannot find the or not work if the cell only contains numeric. but if it works if i added a letter on it
ex. 2022 <- cannot be found
2023A <- searchable regardless if 23 or just A is typed in the box
here is my code for filtering/search . i have 4 boxes for filtering.. this is also how i populate my listbox1
Year column is on letter "T"
Sub Refresh_Listbox()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Data")
Dim dsh As Worksheet
Set dsh = ThisWorkbook.Sheets("Data_Display")
''''''''''' Copy Data ''''''''''
dsh.Cells.Clear
sh.AutoFilterMode = False
'txt search
If Me.cmb_Filter_By.Value <> "ALL" Then
sh.UsedRange.AutoFilter Application.WorksheetFunction.Match(Me.cmb_Filter_By.Value, sh.Range("1:1"), 0), "*" & Me.txt_Search.Value & "*"
End If
'txt search 2
If Me.cmb_Filter_By2.Value <> "ALL" Then
sh.UsedRange.AutoFilter Application.WorksheetFunction.Match(Me.cmb_Filter_By2.Value, sh.Range("1:1"), 0), "*" & Me.txt_Search2.Value & "*"
End If
'txt search 3
If Me.cmb_Filter_By3.Value <> "ALL" Then
sh.UsedRange.AutoFilter Application.WorksheetFunction.Match(Me.cmb_Filter_By3.Value, sh.Range("1:1"), 0), "*" & Me.txt_Search3.Value & "*"
End If
'txt search 4
If Me.cmb_Filter_By4.Value <> "ALL" Then
sh.UsedRange.AutoFilter Application.WorksheetFunction.Match(Me.cmb_Filter_By4.Value, sh.Range("1:1"), 0), "*" & Me.txt_Search.Value & "*"
End If
sh.UsedRange.Copy dsh.Range("A1")
sh.AutoFilterMode = False
Dim lr As Long
On Error Resume Next
lr = Application.WorksheetFunction.CountA(dsh.Range("A:A"))
If lr = 1 Then lr = 2
With Me.ListBox1
.ColumnHeads = True
.ColumnCount = 25
.ColumnWidths = "35,33,30,100,70,44,60,120,120,120,120,70,100,50,70,70,70,70,200,100,10"
.TextAlign = fmTextAlignCenter
.RowSource = "Data_Display!A2:U" & lr
End With
lbl_count = ListBox1.ListCount - 1
Call sum_of_listbox_column
End Sub
Display More
this is how i populate my cmb_filter_by
Sub Refresh_DropDown_List()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("List")
Dim i As Integer
'''' Create list for Type of Issue
Me.cmb_factor.Clear
Me.cmb_factor.AddItem ""
For i = 2 To Application.WorksheetFunction.CountA(sh.Range("A:A"))
Me.cmb_factor.AddItem sh.Range("A" & i).Value
Next i
'''' Create list for Machine
Me.cmb_machine.Clear
Me.cmb_machine.AddItem ""
For i = 2 To Application.WorksheetFunction.CountA(sh.Range("C:C"))
Me.cmb_machine.AddItem sh.Range("C" & i).Value
Next i
'''''''''' Filter_by List
With Me.cmb_Filter_By
.Clear
.AddItem "ALL"
.AddItem "Year" `<-- numeric only
.AddItem "Week"
.AddItem "Line"
.AddItem "Machine"
.AddItem "Description"
.AddItem "Possible Cause"
.AddItem "Corrective Action"
.AddItem "Action to be taken"
.AddItem "product"
.AddItem "Factor"
.AddItem "Status"
.AddItem "Incharge"
.AddItem "Note"
.Value = "ALL"
End With
End sub
Display More
ty hope you can help me with this.