Nhờ sửa dùm code tạo dòng tổng cộng

[tranthanhktt]

Chào cả nhà! mình có tải file tạo dòng tổng cộng ở cuối trang trên diễn đàn về áp dụng, nhưng khi mình thêm một cột nữa thì khi thực hiện chèn dòng thì gặp sự cố như sau:
Nó chèn hết kết quả vùng dữ liệu từ A26:AV26 thay vì chỉ cần chèn từ A26:H26 thôi , mình đã thử làm mãi mà vẫn không được. mình gửi file đính kèm để cả nhà xem và chỉnh giúp nhé,và giải thích dùm để mình có thể áp dụng code trên vào các sổ khác.
Cám ơn cả nhà ! Chúc một ngày thật vui vẽ.

 

[nghiaphuc]

Chào cả nhà! mình có tải file tạo dòng tổng cộng ở cuối trang trên diễn đàn về áp dụng, nhưng khi mình thêm một cột nữa thì khi thực hiện chèn dòng thì gặp sự cố như sau:
Nó chèn hết kết quả vùng dữ liệu từ A26:AV26 thay vì chỉ cần chèn từ A26:H26 thôi , mình đã thử làm mãi mà vẫn không được. mình gửi file đính kèm để cả nhà xem và chỉnh giúp nhé,và giải thích dùm để mình có thể áp dụng code trên vào các sổ khác.
Cám ơn cả nhà ! Chúc một ngày thật vui vẽ.

Trong Sub AddFooterX, bạn thay câu lệnh
Rows(iRe).Insert xlShiftDown, True
bởi câu lệnh
.Range("A" & iRe).Resize(, 8).Insert xlShiftDown, True
hoặc
.Cells(iRe,1).Resize(, 8).Insert xlShiftDown, True
là được.