Private Sub TextBox1_Change()
ActiveSheet.ListObjects("Table13").Range.AutoFilter Field:=2, Criteria1:="*" & [G1] & "*"
End Sub
Ghi chú: Code của video đây ạ: 'ActiveSheet.ListObjects("Tên Table").Range.AutoFilter Field:=Cot can loc du lieu, Criteria1:="*" & [ô LinkedCell] & "*"