Lọc dữ liệu theo nhiều điều kiện (1 người xem)

[Chian91]

Sub locXE()
Dim rg As Range
Sheet5.Range("A8:S300").ClearContents
Set rg = Sheet2.Range("A8:S10000")
rg.AdvancedFilter 2, Sheet1.Range("I15:J16"), [A8]
End Sub

Em có đoạn mã lọc dữ liệu theo 2 điều kiện như trên. Bây giờ e muốn lọc theo 3 điều kiện trong ô I15:K16 thì e phải chỉnh sửa mã trên như thế nào ạ? Em xin cảm ơn!

 

[nghiaphuc]

Sub locXE()
Dim rg As Range
Sheet5.Range("A8:S300").ClearContents
Set rg = Sheet2.Range("A8:S10000")
rg.AdvancedFilter 2, Sheet1.Range("I15:J16"), [A8]
End Sub

Em có đoạn mã lọc dữ liệu theo 2 điều kiện như trên. Bây giờ e muốn lọc theo 3 điều kiện trong ô I15:K16 thì e phải chỉnh sửa mã trên như thế nào ạ? Em xin cảm ơn!

Thì bạn sửa chỗ Sheet1.Range("I15:J16") thành Sheet1.Range("I15:K16") hoặc Sheet1.[I15:K16]