Code chạy bị lỗi sau khi xoá trắng vùng kết quả (1 người xem)

[LYSM]

Em chào các thầy, cô, anh chị! Nhờ mọi người xem giúp em sub "Tinh()" của em bị lỗi gì mà khi em xóa trắng vùng kết quả (D8:O306) sau đó chạy code thì các dòng tiêu đề bên trên bị xóa mất và thay vào bằng dòng kết quả, nếu không xóa hết thì code vẫn chạy bình thường. Em cảm ơn ạ!

 

[huuthang_bd]

Em chào các thầy, cô, anh chị! Nhờ mọi người xem giúp em sub "Tinh()" của em bị lỗi gì mà khi em xóa trắng vùng kết quả (D8:O306) sau đó chạy code thì các dòng tiêu đề bên trên bị xóa mất và thay vào bằng dòng kết quả, nếu không xóa hết thì code vẫn chạy bình thường. Em cảm ơn ạ!

Bạn sửa dòng

.Range(.[D8], .[D65000].End(xlUp)).Resize(, 12) = Somau

Thành

.[D8].Resize(UBound(Somau, 1), 12).Value = Somau

 

[LYSM]

Bạn sửa dòng

.Range(.[D8], .[D65000].End(xlUp)).Resize(, 12) = Somau

Thành

.[D8].Resize(UBound(Somau, 1), 12).Value = Somau

Em cảm ơn ạ! Bác có thể giải thích cho em tại sao được không? Em mày mò chắp vá nên không hiểu đúng sai thế nào

 

[quocphuoc88]

bạn mất vì
- khi bạn xóa hết dữ liệu cũ, dòng chỗ code [D65500].end(xlup) nó cũng sẽ là thằng D7
- khi bạn gán kết quả xuống thì nó sẽ bắt đầu tại D7 này nên tiêu đề bạn sẽ mất luôn !