Lọc 3 cột theo 2 điều kiện

[Son-Thuy]

Nhờ các bạn trên diễn đàn giúp cho bài này
Ở sheet Tonghop tôi muốn lọc như sau

Khi tôi nhập số liệu vào ô C4 thì cột C lọc theo ô C4, và
tôi nhập số liệu vào ô F4 thì cột F và cột G lọc theo ô F4,
Kết quả sẽ vẫn thể hiện ở sheet Tonghop (nhưng giống sheet 2)
khi bỏ số liệu ở C4 và F4 thì số liệu trở về như ban đầu
Cảm ơn các bạn

 

[HieuCD]

Nhờ các bạn trên diễn đàn giúp cho bài này
Ở sheet Tonghop tôi muốn lọc như sau

Khi tôi nhập số liệu vào ô C4 thì cột C lọc theo ô C4, và
tôi nhập số liệu vào ô F4 thì cột F và cột G lọc theo ô F4,
Kết quả sẽ vẫn thể hiện ở sheet Tonghop (nhưng giống sheet 2)
khi bỏ số liệu ở C4 và F4 thì số liệu trở về như ban đầu
Cảm ơn các bạn

Chép code vào sheet Tonghop

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim eRow&

  If Not Intersect(Target, Union(Range("C4"), Range("F4"))) Is Nothing Then
    On Error Resume Next
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    ActiveSheet.ShowAllData
    eRow = Range("C" & Rows.Count).End(xlUp).Row
    If eRow > 8 Then
      If Range("C4").Value <> Empty Then
        Range("J2").Value = Range("C8").Value
        Range("J3:J4").Value = Range("C4").Value
      End If
      If Range("F4").Value <> Empty Then
        Range("K2:L2").Value = Range("F8:G8").Value
        Range("K3").Value = Range("F4").Value
        Range("L4").Value = Range("F4").Value
      End If
      Range("A8:H" & eRow).AdvancedFilter Action:=xlFilterInPlace, _
                                      CriteriaRange:=Range("J2:L4")
      Range("J2:L4").ClearContents
    End If
    Application.ScreenUpdating = True
    Application.EnableEvents = True
  End If
End Sub

 

[Son-Thuy]

Cảm ơn bạn nhiều!