Xin nhờ các bạn sửa giúp code lọc dữ liệu AdvancedFilter

[mountain84]

Xin chào các bạn! Mình có dòng code liên quan đến AdvancedFilter, hiện nay mình muốn sửa dòng code sao cho các vùng dữ liệu trong dòng code có thể tự động thay đổi khi bảng dữ liệu ở sheet TH16-23 thêm cột hoặc dòng và bảng dữ liệu đích ở sheet THHD thêm cột và dòng, hoặc là khi tên sheet thay đổi thì code vẫn có thể hoạt động đúng. Kính mong các bạn giúp đỡ vì mình chưa biết gì về VBA nên cũng không biết cách sửa sao cho đúng nhu cầu. Trân trọng cảm ơn các bạn đã quan tâm và giúp đỡ!

Sub loc_dieu_kien()
Dim rg As Range
Dim criterial_rg As Range
Dim copy_rg As Range

Sheets("THHD").Range("A8:J1000").Delete

Set rg = Sheets("TH16-23").Range("A3").CurrentRegion
Set criterial_rg = Sheets("THHD").Range("E3").CurrentRegion
Set copy_rg = Sheets("THHD").Range("A7:J7")

rg.AdvancedFilter xlFilterCopy, criterial_rg, copy_rg

End Sub

 

[DarkWanderer]

Xin chào các bạn! Mình có dòng code liên quan đến AdvancedFilter, hiện nay mình muốn sửa dòng code sao cho các vùng dữ liệu trong dòng code có thể tự động thay đổi khi bảng dữ liệu ở sheet TH16-23 thêm cột hoặc dòng và bảng dữ liệu đích ở sheet THHD thêm cột và dòng, hoặc là khi tên sheet thay đổi thì code vẫn có thể hoạt động đúng. Kính mong các bạn giúp đỡ vì mình chưa biết gì về VBA nên cũng không biết cách sửa sao cho đúng nhu cầu. Trân trọng cảm ơn các bạn đã quan tâm và giúp đỡ!

Sub loc_dieu_kien()
Dim rg As Range
Dim criterial_rg As Range
Dim copy_rg As Range

Sheets("THHD").Range("A8:J1000").Delete

Set rg = Sheets("TH16-23").Range("A3").CurrentRegion
Set criterial_rg = Sheets("THHD").Range("E3").CurrentRegion
Set copy_rg = Sheets("THHD").Range("A7:J7")

rg.AdvancedFilter xlFilterCopy, criterial_rg, copy_rg

End Sub

Sheets("THHD") => Thay bằng Sheet code, VD: Sheet1,Sheet2
Các bảng dữ liệu VD: Sheets("THHD").Range("A8:J1000"), thay giá trị chinh xác bằng
With Range("A8")
MaxCol = .End(xlToRight).Column
MaxRow = Cells(Rows.Count, .Column).End(xlUp).Row
rg = .Resize(MaxRow, MaxCol).Value
End With