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

[thu_love]

em có một bảng báo cáo như sau:
Sheet Ton: chứa thông tin về lượng tồn của hàng hóa ở các kho quầy
Sheet Ban: chứa thông tin hàng hóa bán được ở các quầy
Sheet Ma Hang: là sheet em muốn nó list ra lượng tồn, và bán của các mã hàng đã có sẵn theo các quầy, kho (nếu là combo box chọn được quầy kho thì tốt)
Sheet Ma Quay: chứa danh sách mã kho quầy và tên kho quầy


Anh nào demo theo files đính kèm cho em với nhé, em cảm ơn!!!

 

[VU_BAO]

Bạn xem thử nhá. minh chỉ giúp bạn được vậy thôi.

 

[SA_DQ]

Bạn xem trong file nha

Option Explicit
Dim Rng0 As Range
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [C5]) Is Nothing Then
   Set Rng0 = Range("A6:A" & [A6].End(xlDown).Row)
   Rng0.Offset(, 2).Resize(, 2).ClearContents
   Ton_Ban Target
 End If
End Sub
Sub Ton_Ban(Targ As Range)
 Dim Rng As Range, sRng As Range, Clls As Range, Sh As Worksheet
 Dim MyAdd As String, jJ As Byte
 
 For jJ = 1 To 2
   Set Sh = Worksheets(Choose(jJ, "Ton", "Ban", "GPE"))
   
   Set Rng = Sh.Range(Sh.[b1], Sh.[B65500].End(xlUp)).Offset(, jJ - 1)
   For Each Clls In Rng0
      Set sRng = Rng.Find(Clls.Value, , xlFormulas, xlWhole)
      If Not sRng Is Nothing Then
         MyAdd = sRng.Address
         Do
            If sRng.Offset(, -1).Value = Targ.Value Then _
               Clls.Offset(, 1 + jJ).Value = sRng.Offset(, 1).Value
            Set sRng = Rng.FindNext(sRng)
         Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
      End If
   Next Clls
 Next jJ
End Sub

 

[sealand]

Thử file của mình xem sao? Mình đã loại trừ chỉ có quầy nào có dữ liệu mới liệt kê.

 

[thu_love]

Em muốn giữ nguyên form của sheet Ma Hang, mã kho và mã quầy ở dạng liệt kê như thế cho trực quan, có thể không cần combobox cũng được. Em cảm ơn!!!!

 

[cadafi]

Em muốn giữ nguyên form của sheet Ma Hang, mã kho và mã quầy ở dạng liệt kê như thế cho trực quan

Thử cái công thức SUMIF cùi mía của mình làm xem sao nhé! Có hai sheet với hai cách trình bày! Trong đó có một cách giữ nguyên định dạng theo ý bạn.

 

[thu_love]

Ở sheet Ma Hang mặc dù không làm gì tới phần có công thức ( chỉ cần gõ thêm ký tự hay làm gì đó) với vùng trắng chưa có dữ liệu thì excel cũng tính toán ---> rất bất tiện + không làm được gì với files excel này
Các anh sử lý giúp em với

 

[ChanhTQ@]

Cái bất tiện mà bạn gặp fải có thể do bạn tự đem lại;

Ở sheet Ma Hang mặc dù không làm gì tới phần có công thức ( chỉ cần gõ thêm ký tự hay làm gì đó) với vùng trắng chưa có dữ liệu thì excel cũng tính toán ---> rất bất tiện + không làm được gì với files excel này
Các anh sử lý giúp em với

Ban đầu bạn chưa giới thiệu file của bạn bao nhiêu dòng (Records); Nếu dữ liệu nhiều mà xài SUMPRODUCT() tại không chỉ 1 cột mà là 3 cột liền thì quá ư xa xỉ thời gian của bạn & cộng đồng.

Hãy thử SUMIF(), VBA . . . gì , gì đó xem sao

Chúc những thành công sắp tới của bạn!

 

[thu_love]

files của em là files của anh Cadafi chỉ dùng sumif
anh nào giúp em với

 

[thu_love]

không anh nào giúp em với ah...
hix hix

 

[Lê Duy Thương]

mình không ró ý bạn cho lắm nhưng mình chỉ giúp được như thế này thôi