Tự động thêm row

[anhtruong_bgi]

Tại From tôi muốn có một nút ấn để nó có thể tự động thêm dòng tại Bang Ke. Ngoài ra tôi muốn Bang ke thang có thể tập hợp được số liệu của 1 đơn vị trong cả tháng đó. Nhờ các bác giúp đỡ

 

[sonluan77]

Đề tài thêm cột, dòng

Nhân tiện câu hỏi của bạn. Tôi cũng xin hỏi mọi người là: mỗi một yêu cầu của từng sheets chỉ cần một số dòng hoặc cột nhất định.
Ví dụ: Tôi chọn bảng dữ liệu chỉ gồm 15 cột và 35 dòng thông qua list ở 2 ô lựa chọn số dòng và số cột.
Mong các bạn giúp đỡ.

 

[cadafi]

Tại hôm qua tôi quên mất, bây giờ tôi gửi lên nhé. Nhờ các cao thủ giúp đỡ hoàn chỉnh hộ tôi. Xin chân thành cảm ơn!

Bạn gửi file nhờ giúp mà lại đặt password cho VBA thì làm sao mà giúp. Cho nên đâu có ai trả lời bạn.

 

[chibi]

Đây là 1 ví dụ

Sub them_dong()
    Sheets("Bang ke").Rows(4).Insert
End Sub

 

[ThuNghi]

Thú thật tôi chưa biết bạn muốn thêm dòng nào vào bảng kê nữa. Còn bảng kê muốn ghi vào bảng kê tháng thì động tác là copy và dán vào dòng cuối của bảng kê tháng.
Đại lọai
DongCuoi=Sheets("Bang Ke thang").Range("F1000").end(xlup).Row+1

 

[anhtruong_bgi]

Mấy hôm vừa rồi tôi bận quá, password là: kpmncduh. Tại bảng kê khi tôi nhập đến dòng thứ 42 là hết bảng kê, nhưng phần nhập dữ liệu thì có đến 50 nay tôi muốn nhập dữ liệu thì tại phần bảng kê sẽ tự động thêm dòng để nhập đủ 50 dữ liệu