Khi nhập dữ liệu tự động chèn thêm dòng khi số dòng trong bảng mẫu sắp hết (1 người xem)

[hieuxd]

Nhờ các thầy và anh chị em GPE giúp đỡ Code tự động chèn thêm dòng
Trong bảng mẫu em có 12 dòng để nhập dữ liệu
nhập dữ liệu ở cột C
khi nhập đến dòng thứ 11 còn 1 dòng trống thì tự động chèn thêm 5 dòng trống nữa
tiếp tục nhập tiếp
khi nhập đến dòng thứ 16 còn 1 dòng trống thì lại tự động chèn thêm 5 dòng trống nữa
....
Mục đích là không muốn dữ liệu nhập ra ngoài bảng đã căn chỉnh định dạng
Cuối bảng có một dòng ghi chữ End
Các dòng chèn thêm luôn ở trên dòng này
Trước để tự động thêm dòng em có dùng Format as Table (Insert Table) ... List

 

[Phan phú]

Cuối năm rồi cũng ráng nghiến răng viết đại vài dòng code

Cho em hỏi trong google shest có làm dc như vậy ko ạ

 

[Bát Giới]

Right Click vào tab sheet "Thong ke" ==> View Code ==> chép em này vào

Private Sub Worksheet_Change(ByVal Target As Range)
    If [C50000].End(xlUp).Row - Target.Row = 2 Then
        If Len(Target) Then Target.Offset(1).Resize(5).EntireRow.Insert
    End If
End Sub

Chỗ =2 thay đổi tùy ý của bạn
Thân

rất tuyệt vời. nhưng b có cach nào mà để số dòng trống luôn cố định, là 3 thôi chẳng hạn ( khi còn 2 dòng nó sẽ tự thêm 1 dòng, còn khi xóa dữ liệu đi có nhiều dòng trống hơn thì nó tự thu gọn còn 3 dòng trống thôi).? cảm ơn b.!