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 ạ