dạ thầy xem dùm em tại sao em làm file tra cứu nhưng không dùng được hàm advancedfilter với ạ
cám ơn thầy ạ
            
            Bạn làm như sau nhé
Sub tim_kiem()
   Dim data_rg, criteria_rg, copy_rg As Range
   Set data_rg = ThisWorkbook.Sheets("Lich Su Giao Dich").Range("B3:K13")
   Set criteria_rg = ThisWorkbook.Sheets("Tra Cuu").Range("B2:B3")
   Set copy_rg = ThisWorkbook.Sheets("Tra Cuu").Range("B6:K6")
   data_rg.AdvancedFilter xlFilterCopy, criteria_rg, copy_rg
End Sub
Dạ đã được rồi thầy, cảm ơn thầy nhiều nhiều ạ