Lọc mảng nhiều điều kiện

Chia sẻ bởi:hands

★★★★★

‹ LỌC RA NHIỀU CELL THỎA MÃN CÙNG... TÌM VỊ TRÍ MAX VÀ MIN BẰNG... ›

Quảng cáo

Mình có bảng dữ liệu sau:
18091

Giờ mình muốn tạo 1 sheet khác, lọc riêng Mã hàng, Tên hàng, Số lượng theo điều kiện của Ngày và NCC, ví dụ như:
18090
Khi thay đổi điều kiện ở ô B1 và B2 thì sẽ các giá trị từ dòng 4 sẽ cập nhật theo.
Các cụ có phương án nào hay tư vấn giúp em.

Xài 1 cột phụ (cột F tại sheet Tổng hợp nhé! (Công thức thì file đính kèm.)

Còn code thì thử cái này:

Sub Loc()
Dim Sh As Worksheet, Arr(), zArr()
Dim Rws As Long, J&, W&, dk1 As Date, dk2 As String
    dk1 = Sheets("CHI TIET").[B1].Value
    dk2 = Sheets("CHI TIET").[B2].Value
zArr = Array(2, 3, 5)
    Set Sh = Sheets("TONG HOP")
    With Sh.[A2]
        Rws = .CurrentRegion.Rows.Count
        Arr() = .Resize(Rws, 5).Value
    End With
    ReDim dArr(1 To Rws, 1 To 3)
    For J = 1 To UBound(Arr())
        If Arr(J, 1) = dk1 And Arr(J, 4) = dk2 Then
            W = 1 + W
            For Z = 0 To UBound(zArr)
                dArr(W, Z + 1) = Arr(J, zArr(Z))
            Next Z
        End If
    Next J
    If W Then
        Sheets("CHI TIET").[A4].Resize(65000, 3).ClearContents
        Sheets("CHI TIET").[A4].Resize(W, 3).Value = dArr()
    End If
End Sub

Code trên chưa có ổn. Lẽ ra thì khi để trống không chọn ngày đặt hàng, chọn mỗi NCC thì ở bên dưới phải sổ tất cả dữ liệu mà mình đặt hàng của NCC đó.

Thử làm theo hướng bác bảo
+ Nếu cả 2 điều kiện không trống thì dò theo 2 điều kiện
+ Nếu một trong 2 trống,thì chỉ dò theo cái điều kiện Không trống

Mà cứ lẫn quẫn trong vùng If, Elseif,……….If hoài. Được cái này thì cái kia không chạy, hoặc ngược lại.Hix hixx……&&&%$R&&&%$R&&&%$R&&&%$R

Bác code mẫu đoạn này cho tôi học hỏi với, lẫn quẫn quá.
Xem thử file này coi sao:18090