Xin giúp đỡ với trường hợp button

[Mikey47]

Em đang làm một button sử dụng advencefilter để hiện thị 2 vùng dữ liệu từ 2 sheet khác nhau (HD, TT) nhưng có cùng chung một vùng điều kiện là CONTRACT mục đích để quản lý hàng hóa, so sánh từ thực tế với hợp đồng. Em đã làm được hiển thị riêng từng loại nhưng làm 1 click button mà hiển thị luôn cả 2 vùng dữ liệu lọc từ 2 bảng theo điều kiện chung số contract thì chưa được. Nhờ mọi người giúp đỡ ạ.
em viết code như này thì hiển thị mỗi một cột của bảng TT

Sub SHEARCH()
Dim dataHD_rg, criteriaHD_rg, copyHD_rg, dataTT_rg, criteriaTT_rg, copyTT_rg As Range

Set dataTT_rg = ThisWorkbook.Sheets("2. LICH HANG THUC TE").Range("B3").CurrentRegion
Set criteriaTT_rg = ThisWorkbook.Sheets("3. TRA CUU").Range("B2").CurrentRegion
Set copyTT_rg = ThisWorkbook.Sheets("3. TRA CUU").Range("A9").CurrentRegion

Set dataHD_rg = ThisWorkbook.Sheets("1. DANH SACH HD").Range("C3").CurrentRegion
Set criteriaHD_rg = ThisWorkbook.Sheets("3. TRA CUU").Range("B2").CurrentRegion
Set copyHD_rg = ThisWorkbook.Sheets("3. TRA CUU").Range("A28").CurrentRegion

ThisWorkbook.Sheets("3. TRA CUU").Rows("8:100").EntireRow.Delete

dataTT_rg.AdvancedFilter xlFilterCopy, criteriaTT_rg, copyTT_rg
dataHD_rg.AdvancedFilter xlFilterCopy, criteriaHD_rg, copyHD_rg
End Sub

Sub RESET()
ThisWorkbook.Sheets("3. TRA CUU").Rows("8:100").EntireRow.Delete
ThisWorkbook.Sheets("3. TRA CUU").Range("B3").Value = ""
End Sub

 

[Maika8008]

Đưa cái chứa code ấy lên đi.