Nhờ sửa lại đoạn code lọc dữ liệu

[thanhwb]

Nhờ các bạn giúp mình sửa đoạn code này với, mình làm mãi không được.

 

[concogia]

Chạy thử code này xem sao:

Public Sub LocHoai()
Dim DuLieu, VungDo, iDau, Cll, Wf, Ws, Stt
Application.ScreenUpdating = False
Set Wf = Application.WorksheetFunction: Set Ws = Sheets("PTVTM")
Set DuLieu = Ws.Range(Ws.[c1], Ws.[c40000].End(xlUp))
Set VungDo = Sheets("DT").[c9:c11]
[b8:j1000].Clear
    For Each Cll In VungDo
        iDau = Wf.Match(Cll, DuLieu, 0)
        Ws.Range(Ws.Cells(iDau, 3), Ws.Cells(iDau, 3).End(xlDown)(0)).Resize(, 8).Copy [d10000].End(xlUp).Offset(1, -1)
        [C10000].End(xlUp).Offset(, -1) = Stt + 1
        Stt = Stt + 1
    Next Cll
 Application.ScreenUpdating = True
End Sub

Thân

 

[thanhwb]

Code chạy tốt bạn àh, cảm ơn bạn nhưng cho mình hỏi thêm một chút, VD như có một mã nào đấy xuất hiện lớn hơn 2 lần thì khi lọc code trên chỉ lọc ra một thôi. Bạn giúp mình xử lý tiếp được không? Cảm ơn bạn

 

[concogia]

Code chạy tốt bạn àh, cảm ơn bạn nhưng cho mình hỏi thêm một chút, VD như có một mã nào đấy xuất hiện lớn hơn 2 lần thì khi lọc code trên chỉ lọc ra một thôi. Bạn giúp mình xử lý tiếp được không? Cảm ơn bạn

Thật tình chưa hiểu được ý bạn.
Có phải ý bạn nói mã bên sheet "PTVTM" xuất hiện nhiều hơn 1 lần
Nếu đúng vậy bạn không dùng hàm MATCH nữa, tạo một vòng lặp duyệt qua toàn bộ mã, cứ gặp mã thỏa điều kiện thì đem giá trị của mã đó sang sheet "PTVT1" thôi
Nếu có file cụ thể thì dễ hình dung hơn
Thân

 

[ThuNghi]

Code chạy tốt bạn àh, cảm ơn bạn nhưng cho mình hỏi thêm một chút, VD như có một mã nào đấy xuất hiện lớn hơn 2 lần thì khi lọc code trên chỉ lọc ra một thôi. Bạn giúp mình xử lý tiếp được không? Cảm ơn bạn

Bạn nên nhập mã cần lấy định mức vào 1 sh MaHieu và tạo từ đó.

 

[thanhwb]

Thật tình chưa hiểu được ý bạn.
Có phải ý bạn nói mã bên sheet "PTVTM" xuất hiện nhiều hơn 1 lần
Nếu đúng vậy bạn không dùng hàm MATCH nữa, tạo một vòng lặp duyệt qua toàn bộ mã, cứ gặp mã thỏa điều kiện thì đem giá trị của mã đó sang sheet "PTVT1" thôi
Nếu có file cụ thể thì dễ hình dung hơn
Thân

Ý của mình là nếu trong sheet DT một mã nào đấy xuất hiện nhiều lần thì trong sheet PTVT1 cũng sẽ xuất hiện tương ứng chứ ko phải chỉ một lần.
Giong nhu the nay

 

[viehoai]

Ý của mình là nếu trong sheet DT một mã nào đấy xuất hiện nhiều lần thì trong sheet PTVT1 cũng sẽ xuất hiện tương ứng chứ ko phải chỉ một lần.
Giong nhu the nay

Bạn thay đồi code của anh "Còn có giá" (zởn tí cho vui thôi anh concogia nghe)
Set VungDo = Sheets("DT").[c9:c11]
Thành: Set VungDo = Sheets("DT").Range("C9:C" & Sheets("DT").[C65500].End(xlUp).Row - 18)

 

[thanhwb]

Thay vào nó lại báo lỗi bạn ạh, bạn thử chạy xem

 

[viehoai]

Thay vào nó lại báo lỗi bạn ạh, bạn thử chạy xem

Bạn xem file thử nhé

 

[thanhwb]

Cảm ơn bạn rất nhiều, bạn có thể giúp mình một bước nữa được không? Mình muốn điền "Khối lượng" (cột F) trong sheet DT vào phần "Thi công" (cột G) trong sheet PTVT1 được không?