Code VBA cho số thứ tự bị lỗi

[MeThuongNho]

Kính gửi Anh/Chị,
Em có Code "Hàng loạt" như File đính kèm.
Lỗi ở chỗ: Số thứ tự mà đánh tay thì code chạy rất ngon lành.
Nhưng khi cột số thứ tự mà có công thức là code lỗi: chạy hết các mã thứ tự rỗng hoặc bằng 0 luôn.
Mong mọi người sửa giúp ajh.
Cám ơn mọi người nhiều!

 

[giaiphap]

Kính gửi Anh/Chị,
Em có Code "Hàng loạt" như File đính kèm.
Lỗi ở chỗ: Số thứ tự mà đánh tay thì code chạy rất ngon lành.
Nhưng khi cột số thứ tự mà có công thức là code lỗi: chạy hết các mã thứ tự rỗng hoặc bằng 0 luôn.
Mong mọi người sửa giúp ajh.
Cám ơn mọi người nhiều!

Thử sửa chổ Stt thế này xem sao.

Stt = Application.WorksheetFunction.Max(Sheets("GT-Mult").Range("B4:B" & Sheets("GT-Mult").Range("B" & Rows.Count).End(xlUp).Row))

 

[batman1]

Nếu tôi hiểu được bạn nói gì thì:
1. Trong GT-Mult sửa công thức B4 thành

=IF(D4="";"";MAX($B$3:B3)+1)

sao chép xuống dưới.

Bước này không bắt buộc nhưng để loại bỏ các số 0 không cần thiết.

2. Dữ liệu trong cột D phải liên tục, không có dòng trống. Không liên tục trong cột D thì Stt trong cột B cũng không liên tục.

3. Thay Stt = ... bằng

Stt = Sheets("GT-Mult").Range("D" & Rows.Count).End(xlUp).Row - 3

 

[MeThuongNho]

Nếu tôi hiểu được bạn nói gì thì:
1. Trong GT-Mult sửa công thức B4 thành

=IF(D4="";"";MAX($B$3:B3)+1)

sao chép xuống dưới.

Bước này không bắt buộc nhưng để loại bỏ các số 0 không cần thiết.

2. Dữ liệu trong cột D phải liên tục, không có dòng trống. Không liên tục trong cột D thì Stt trong cột B cũng không liên tục.

3. Thay Stt = ... bằng

Stt = Sheets("GT-Mult").Range("D" & Rows.Count).End(xlUp).Row - 3

Cám ơn batman1
Em đã hiểu.
Trân trọng!