Code tìm kiếm cho điều kiện tìm Gộp

[Yeuvoyeucon]

Kính gửi Anh Chị,
Bình thường làm em hay gặp bài toán kiểu này với mục tiêu tìm kiếm.
- Tại sheet Data em phải làm cột phụ Mã Hàng + Mã NV để làm vùng tìm kiếm cho hàm Vlookup
- Tại sheet GPE em muốn lọc Số lương bán theo điều kiện tìm kiếm là Mã Hàng + Mã NV em đã làm như File tại cột F.
Code gì có thể thay được khỏi phải làm cột phụ mà vẫn lọc được ra kết quả như tại cột F ạ.

 

[Cá ngừ F1]

Em cảm ơn anh đã trợ giúp ạ !!!

cảm ơn bạn, quan trọng là cần biết thực tế kết quả bạn muốn thế nào? nếu đơn giản chỉ là tìm kiếm (theo 2 tiêu chí) thì code còn đơn giản hơn nhiều đó.

 

[Yeuvoyeucon]

cảm ơn bạn, quan trọng là cần biết thực tế kết quả bạn muốn thế nào? nếu đơn giản chỉ là tìm kiếm (theo 2 tiêu chí) thì code còn đơn giản hơn nhiều đó.

Của em mã nhân viên và mã hàng là duy nhất không có hai dòng nên chạy code của Anh hoặc anh Hương em thấy đều đúng ạ ! Em cảm ơn nhiều nhiều ạ !

 

[Cá ngừ F1]

Của em mã nhân viên và mã hàng là duy nhất không có hai dòng nên chạy code của Anh hoặc anh Hương em thấy đều đúng ạ ! Em cảm ơn nhiều nhiều ạ !

Nếu đã xác định được là duy nhất, hoặc nó không là duy nhất mà muốn lấy kết quả theo dòng đầu tiên, thì lấy code này.

Sub GPE()
On Error Resume Next
Dim i&, Dic As Object, Data(), Itm, GPE(), KQ()
Data = Range(Sheet1.[B1], Sheet1.[F1000].End(3))
GPE = Range(Sheet4.[B2], Sheet4.[E1000].End(3))
ReDim KQ(1 To UBound(GPE), 1 To 1)
Set Dic = CreateObject("Scripting.Dictionary")
Dic.CompareMode = vbTextCompare
For i = 1 To UBound(Data)
    Itm = Data(i, 1) & Data(i, 4)
    If Not Dic.exists(Itm) Then
        Dic(Itm) = i
    End If
Next
For i = 1 To UBound(GPE)
    Itm = GPE(i, 1) & GPE(i, 4)
    KQ(i, 1) = Data(Dic.Item(Itm), 5)
Next
Sheet4.[F2].Resize(i - 1, 1) = KQ
End Sub