Code tổng hợp kết quả từ sheet khác

[nhk007dn]

Chào các bạn trên GPE!
Nhờ các bạn xem giúp lỗi của đoạn code KetQua trong file đính kèm, khi mình chạy code thì kết quả ở cột F (tô màu vàng) không hiện ra hết.
Mình cảm ơn!

 

[nhk007dn]

bạn nào biết lỗi chỗ nào chỉ mình sửa lại với. cả ngày nay mò mà vẫn ko hiện hết được kết quả ở cột F

 

[ppc0312]

bạn nào biết lỗi chỗ nào chỉ mình sửa lại với. cả ngày nay mò mà vẫn ko hiện hết được kết quả ở cột F

xem lại đoạn này

With Sheets("DM")
    sArr = .Range("B7", .Range("B7").End(xlDown)).Resize(, 10).Value
End With

xem lại sArr được mấy dòng?
Rồi dò tiếp các cái sai khác có thể có

 

[nhk007dn]

xem lại đoạn này

With Sheets("DM")
    sArr = .Range("B7", .Range("B7").End(xlDown)).Resize(, 10).Value
End With

xem lại sArr được mấy dòng?
Rồi dò tiếp các cái sai khác có thể có

Cảm ơn bạn đã hỗ trợ!
Nếu để nguyên dòng như trên thì hiện được kết quả ở ô F4 và F6
nhưng khi mình đổi vùng dò tìm từ cột B sang cột D như bên dưới thì lại được kết quả ở ô F4 và F9

With Sheets("DM")
    sArr = .Range("D7", .Range("D7").End(xlDown)).Resize(, 8).Value
End With

Có thể giải thích giúp mình vì sao lại ko hiện hết các kết quả còn lại ko ạ, mình cảm ơn!

 

[batman1]

Cảm ơn bạn đã hỗ trợ!
Nếu để nguyên dòng như trên thì hiện được kết quả ở ô F4 và F6
nhưng khi mình đổi vùng dò tìm từ cột B sang cột D như bên dưới thì lại được kết quả ở ô F4 và F9

With Sheets("DM")
    sArr = .Range("D7", .Range("D7").End(xlDown)).Resize(, 8).Value
End With

Có thể giải thích giúp mình vì sao lại ko hiện hết các kết quả còn lại ko ạ, mình cảm ơn!

Cột DM!B có các ô trống đan xen nên không thể dùng xlDown được.
Nếu muốn tìm dòng cuối có dữ liệu thì dùng xlUp. Tức thay cho

With Sheets("DM")
    sArr = .Range("B7", .Range("B7").End(xlDown)).Resize(, 10).Value
End With

phải có

With Sheets("DM")
    sArr = .Range("B7", .Range("B" & Rows.Count).End(xlUp)).Resize(, 10).Value
End With

Tương tự nếu cột DuLieu!A có ô trống đan xen thì cũng phải dùng xlUp.

Tôi không kiểm tra tính đúng đắn của các dòng code tiếp theo.