Viết code: copy hàng theo 1 số chỉ định trước!! (1 người xem)

[nad582]

Mình có bảng tính: khi tính ô sàn S1 xong rồi, giờ muốn thêm 1 ô sàn nữa xuống phía dưới để nhập liệu tính toán, nhờ các bạn giúp mình viết code: khi bấm "add slab" copy toàn bộ ô sàn S1 xuống phía dưới, bấm "add slab" lần nữa thì lại thêm 1 ô sàn xuống phía dưới nữa...
mong các bạn giúp đỡ... cám ơn nhiều!!

 

[nghiaphuc]

Mình có bảng tính: khi tính ô sàn S1 xong rồi, giờ muốn thêm 1 ô sàn nữa xuống phía dưới để nhập liệu tính toán, nhờ các bạn giúp mình viết code: khi bấm "add slab" copy toàn bộ ô sàn S1 xuống phía dưới, bấm "add slab" lần nữa thì lại thêm 1 ô sàn xuống phía dưới nữa...
mong các bạn giúp đỡ... cám ơn nhiều!!

1. Code cho nút Add Slab:
[GPECODE=vb]Private Sub CommandButton1_Click()
Dim i As Long
For i = 1 To [M5]
[A12:Y15].Copy [A65000].End(xlUp).Offset(1)
Next
End Sub[/GPECODE]
2. Code cho nút Delete Slab:
[GPECODE=vb]Private Sub CommandButton2_Click()
[A16:Y65500].Clear
End Sub[/GPECODE]

 

[viehoai]

Mình có bảng tính: khi tính ô sàn S1 xong rồi, giờ muốn thêm 1 ô sàn nữa xuống phía dưới để nhập liệu tính toán, nhờ các bạn giúp mình viết code: khi bấm "add slab" copy toàn bộ ô sàn S1 xuống phía dưới, bấm "add slab" lần nữa thì lại thêm 1 ô sàn xuống phía dưới nữa...
mong các bạn giúp đỡ... cám ơn nhiều!!

Dùng cho nút AddSlab, còn nút Delte không biết xóa từ đâu
[GPECODE=vb]
Sub AddSlab()
Dim Rw As Integer
With Sheet1
Rw = .Range("I65500").End(xlUp).Row
If Rw < 12 Then Exit Sub
.Range("A" & Rw - 3 & ":Y" & Rw).Copy .Range("A" & Rw + 1)
End With
Application.CutCopyMode = False
End Sub
[/GPECODE]

 

[vuivui85]

lại học lại cơ bản Range nào

Cho em hỏi sao Copy được vậy?