Lỗi không chèn thêm dòng (1 người xem)

[thomtv]

Nhờ các bạn xem giúp mình file đính kèm. lỗi không chèn quá 256 dòng.
Trong file mình có 1 form nhập liệu, có 6 sheet trong đó có sheet "CONG HOA" khi nhập liệu vào báo lỗi (và những sheet có số dòng nhiều hơn 256 cũng bị lỗi).
Mình thử xóa dòng đi còn lại dưới 256 dòng thì nhập liệu được không báo lỗi.
Mình cũng kiểm tra coppy sheet sang file khác chèn thử quá 256 dòng thì được còn trong file này bị lỗi, mình không biết nguyên do gì nên nhờ các bạn xem giúp.
Vì mới học cách viết VBA nên code còn chưa hoàn chỉnh, mong các bạn giúp đỡ.

ElseIf Me.CbPGD = Sheet9.Range("A2") Then
With Sheet2
eR = .[B65536].End(xlUp).Row + 1
.Cells(eR, eR).EntireRow.Insert

 

[thomtv]

xin lỗi vì không gửi file

 

[dovanhoc84]

Nhờ các bạn xem giúp mình file đính kèm. lỗi không chèn quá 256 dòng.
Trong file mình có 1 form nhập liệu, có 6 sheet trong đó có sheet "CONG HOA" khi nhập liệu vào báo lỗi (và những sheet có số dòng nhiều hơn 256 cũng bị lỗi).
Mình thử xóa dòng đi còn lại dưới 256 dòng thì nhập liệu được không báo lỗi.
Mình cũng kiểm tra coppy sheet sang file khác chèn thử quá 256 dòng thì được còn trong file này bị lỗi, mình không biết nguyên do gì nên nhờ các bạn xem giúp.
Vì mới học cách viết VBA nên code còn chưa hoàn chỉnh, mong các bạn giúp đỡ.

ElseIf Me.CbPGD = Sheet9.Range("A2") Then
With Sheet2
eR = .[B65536].End(xlUp).Row + 1
.Cells(eR, eR).EntireRow.Insert

Vì giới hạn có 256 cột nên nó báo lỗi vậy
chỉ cần sửa như dưới thì k lỗi nữa
.Cells(eR, 11).EntireRow.Insert

11 là vì chắc chỉ cần đến 11 cột thôi đúng k?