Xin hướng dẫn trích lọc dữ liệu có điều kiện từ sheet khác.

[somnus_mk]

Các anh/chị ơi em có 1 vấn đề này mong tìm được giải pháp ạ. Trong file tài liệu em đính kèm dưới đây, em muốn trích lọc dữ liệu từ sheet 'TH QUY TM' sang sheet 1 với các chỉ tiêu theo mẫu em đã vẽ ạ. Có cách nào mà khi em điền ngày vào ô G1 (tham chiếu từ cột C của 'TH QUY TM') tại sheet 1, và chọn tên quỹ (tham chiếu từ cột V của 'TH QUY TM') tại ô E1 thì tất cả các dữ liệu theo điều kiện đó sẽ tự động cập nhật từ sheet 'TH QUY TM' sang không ạ? Có thể dùng công thức hay VBA để thực hiện việc này ko ạ? Mong các anh/chị giúp em giải quyết vấn đề này ạ!
Em cám ơn!
P/s: Phần thu/chi tại sheet 1 lấy tại cả 3 cột thu/chi (tour + vé + nội bộ) tại sheet 'TH QUY TM', chỉ lấy tham chiếu theo số chứng từ và ko phân loại như TH QUY TM ạ.

 

[Ba Tê]

Các anh/chị ơi em có 1 vấn đề này mong tìm được giải pháp ạ. Trong file tài liệu em đính kèm dưới đây, em muốn trích lọc dữ liệu từ sheet 'TH QUY TM' sang sheet 1 với các chỉ tiêu theo mẫu em đã vẽ ạ. Có cách nào mà khi em điền ngày vào ô G1 (tham chiếu từ cột C của 'TH QUY TM') tại sheet 1, và chọn tên quỹ (tham chiếu từ cột V của 'TH QUY TM') tại ô E1 thì tất cả các dữ liệu theo điều kiện đó sẽ tự động cập nhật từ sheet 'TH QUY TM' sang không ạ? Có thể dùng công thức hay VBA để thực hiện việc này ko ạ? Mong các anh/chị giúp em giải quyết vấn đề này ạ!
Em cám ơn!
P/s: Phần thu/chi tại sheet 1 lấy tại cả 3 cột thu/chi (tour + vé + nội bộ) tại sheet 'TH QUY TM', chỉ lấy tham chiếu theo số chứng từ và ko phân loại như TH QUY TM ạ.

Chẳng thấy cột V có "tên quỹ" nào nên lấy thí vào cột B. Số Chứng từ là cột nào? Lấy thí cột Số Phiếu.
(Yêu cầu của chính mình cần phải đọc kỹ sau khi viết, người ngoài sao đoán được)
Chỉ làm được bằng VBA, bạn xem có sử dụng được không nhé.
(Chú ý tên Sheet: Không có dấu cách, không dấu tiếng Việt, không để mặc định Sheet1.... trong khi VBA nó không phải là Sheet1, nhìn oải lắm)

Public Sub GPE()
Dim sArr(), dArr(), I As Long, K As Long, DK1 As Long, DK2 As String
With Sheet3
    sArr = .Range("A10", .Range("A10").End(xlDown)).Resize(, 18).Value
End With
ReDim dArr(1 To UBound(sArr), 1 To 8)
With Sheet4
    DK1 = .Range("G1").Value
    DK2 = UCase(.Range("E1"))
    For I = 1 To UBound(sArr)
        If Int(sArr(I, 3)) = DK1 Then
            If UCase(sArr(I, 2)) = DK2 Then
                K = K + 1
                dArr(K, 1) = sArr(I, 5)
                If (sArr(I, 10) + sArr(I, 12) + sArr(I, 14)) <> 0 Then
                        dArr(K, 2) = sArr(I, 6)
                        dArr(K, 5) = sArr(I, 10) + sArr(I, 12) + sArr(I, 14)
                ElseIf (sArr(I, 11) + sArr(I, 13) + sArr(I, 15)) <> 0 Then
                        dArr(K, 3) = sArr(I, 6)
                        dArr(K, 6) = sArr(I, 11) + sArr(I, 13) + sArr(I, 15)
                ElseIf sArr(I, 17) <> 0 Then
                    dArr(K, 2) = sArr(I, 6)
                    dArr(K, 7) = sArr(I, 17)
                ElseIf sArr(I, 18) <> 0 Then
                    dArr(K, 3) = sArr(I, 6)
                    dArr(K, 8) = sArr(I, 18)
                End If
                dArr(K, 4) = sArr(I, 9)
            End If
        End If
    Next I
    .Range("A5").Resize(1000, 8).ClearContents
    .Range("A5").Resize(1000, 8).Borders.LineStyle = 0
    .Range("A5").Resize(K, 8) = dArr
    .Range("A5").Resize(K, 8).Borders.LineStyle = 1
End With
End Sub