code tình thế thôi, còn lỗi, ưu tiên tìm theo cột A
Private Sub TextBox1_Change()
Dim ColFilter As Byte, dk As String
On Error GoTo Tiep
ActiveSheet.ListObjects("bang").Range.AutoFilter Field:=1
ActiveSheet.ListObjects("bang").Range.AutoFilter Field:=2
If TextBox1.Value = "" Then Exit Sub
If WorksheetFunction.CountIf(Range("bang").Resize(Range("bang").Rows.Count, 1), "" & TextBox1.Value & "") Then
ColFilter = 1
Else
ColFilter = 2
End If
If WorksheetFunction.IsNumber(TextBox1.Value + 0) Then
dk = TextBox1.Value
Else
Tiep:
dk = "" & TextBox1.Value & ""
End If
ActiveSheet.ListObjects("bang").Range.AutoFilter Field:=ColFilter, Criteria1:=dk, Operator:=xlFilterValues
End Sub