Xin giúp đỡ hàm liệt kê danh sách theo nhiều điều kiện

Liên hệ QC

hoanganh00

Thành viên mới
Tham gia
6/6/14
Bài viết
29
Được thích
2
Xin chào các anh chị em, mình có 1 file đính kèm, cần nhờ mọi người chỉ giúp hàm để liệt kê các container về sheet3 từ sheet1 và sheet2 với điều kiện các cont có cột Date nhỏ hơn 30/07/2022 và cột VOL =1. Liệt kê hết các container thỏa điều kiện ở sheet1 rồi mới đến sheet2 nhé. Nhờ ACE hỗ trợ ạ.
Cảm ơn nhiều.
 

File đính kèm

hic, không ai giúp mình được hay do mình vi phạm nguyên tắc nào của diễn đàn, mong mọi người chỉ giúp. Cảm ơn nhiều.
 
Vậy thì chắc sử dụng power query. Hỏi thêm bạn là bạn có thể có nhiều bảng như vậy hay chỉ 2 bảng trên 2 sheet đó?
trong file công việc của mình thì sheet 1 và 2 có nhiều dữ liệu hơn, còn sheet 3 thì cần nhiều bảng liệt kê theo điều kiện từ sheet 1 và 2.
 
trong file công việc của mình thì sheet 1 và 2 có nhiều dữ liệu hơn, còn sheet 3 thì cần nhiều bảng liệt kê theo điều kiện từ sheet 1 và 2.
Bạn nhập thêm dữ liệu ở sheet1 và sheet2, tại sheet3 chỉ cần vào Data -> Refresh All là có kết quả.
Tất nhiên dù bạn không nói nhưng tôi vẫn nghĩ là ngày để lọc dữ liệu không cố định. Tuy nhiên tôi chưa xử lý chỗ này để filter trực tiếp trên sheet, bạn phải vào tự sửa trong power query (không khó)
 

File đính kèm

Lần chỉnh sửa cuối:
Bạn nhập thêm dữ liệu ở sheet1 và sheet2, tại sheet3 chỉ cần vào Data -> Refresh All là có kết quả.
Tất nhiên dù bạn không nói nhưng tôi vẫn nghĩ là ngày để lọc dữ liệu không cố định. Tuy nhiên tôi chưa xử lý chỗ này để filter trực tiếp trên sheet, bạn phải vào tự sửa trong power query (không khó)
hì, cảm ơn bạn nhiều, nếu còn vướng mắc mong được bạn giúp đỡ tiếp.
 
trong file công việc của mình thì sheet 1 và 2 có nhiều dữ liệu hơn, còn sheet 3 thì cần nhiều bảng liệt kê theo điều kiện từ sheet 1 và 2.
Trong dữ liệu lọc còn nhiều sheet nên bạn tham khảo code này xem.
Với ô D2 và E2 trong sheet3 là điều kiện lọc Date và Vol

Sub tong_hop()
Dim i, j As Integer
Dim ws As Worksheet
Sheet3.Rows("4:100000").ClearContents
For Each ws In ThisWorkbook.Sheets
If ws.Name <> "Sheet3" Then
ws.Select
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
If Range("B" & i).Value < Sheet3.Range("D2").Value And Range("C" & i).Value = Sheet3.Range("E2").Value Then
Rows(i).Copy
Sheet3.Select
j = Sheet3.UsedRange.Rows(Sheet3.UsedRange.Rows.Count).Row
Rows(j + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
ws.Select
Next i
End If
Next
Sheet3.Select
End Sub
 

File đính kèm

Web KT

Bài viết mới nhất

Back
Top Bottom