Nhờ các cao thủ VBA hỗ trợ viết VBA chèn dòng bên dưới hàng chọn và copy từ bản mẫu chèn dán vào vị trí mới chèn dưới

[huyxc]

*nội dung viết VBA

*macro chèn dưới thì có rồi . 2 nút 2 cách để bên cạnh

Public Sub insertRow()

ActiveCell.Offset(1).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrAbove

ActiveCell.EntireRow.Copy

ActiveCell.Offset(1).EntireRow.PasteSpecial xlPasteFormats

Application.CutCopyMode = False

End Sub

 

[VetMini]

Dưới 1,70m có được tính đầu cao hôn?
Nhảy với không chạm tay được tới cái bảng bóng rổ có được tính là tay cao hôn?

 

[bebo021999]

Dùng cái "củ chuối" này cho nút lệnh nhé:

Public Sub insertRowBelow1()
Dim dat, bt As Range
With Sheets("Danh muc NT cong viec")
If Intersect(ActiveCell, .Range("G:G")) Is Nothing Or Cells(ActiveCell.Row, "B").Value = "" Then Exit Sub
Set dat = Sheets("maucopy").Range("E2:N2")
Set bt = dat.Offset(1)
ActiveCell.Offset(1).EntireRow.Insert shift:=xlDown
ActiveCell.Offset(1, -2).Resize(, 10).Value = IIf(Cells(ActiveCell.Row, "B") = "dat", dat.Value, bt.Value)
End With
End Sub

 

[huyxc]

ActiveCell.Offset(1, -2).Resize(, 10).Value = IIf(Cells(ActiveCell.Row, "B") = "dat", dat.Value, bt.Value)

anh em không muốn dùng dán Value, mà dán kiểu bên kia sao thì dán bên nay vậy ( do bên đó hàng nó có công thức - nên muốn nó qua này kiểu copy dán vào chỗ đó dòng LM vần có côgn thức giống như bên kia sửa như thế nào ạ)

 

[bebo021999]

Trong file có thấy công thức đâu? Bạn gửi file thật lên nhé, vì copy công thức phải biết công thức như thế nào, không phải muốn paste formula thế nào cũng được.

 

[huyxc]

Gửi anh coi lại giúp em ạ. cần dán có công thức

 

[bebo021999]

Quy luật của công thức tại AA13 có phải là: Lấy ngày bắt đầu tại dòng tổng, dán vào làm ngày bắt đầu của dòng chi tiết mới chèn?
Nếu đúng vậy thì lập CT tại sheet chính luôn, không cần copy
1 dòng tổng chèn 1 dòng CT, hay có thể chèn nhiều dòng CT? Nếu nhiều dòng CT thì từ dòng thứ 2, cột AA lấy ngày ở đâu? tại dòng tổng hay ngày của dòng CT liền kề phía trên?

 

[huyxc]

Nếu đúng vậy thì lập CT tại sheet chính luôn, không cần copy

Dạ anh nếu thế thì hay quá anh ạ ( lập CT tại sheet chính luôn, không cần copy )

Bài đã được tự động gộp: 15/12/21

1 dòng tổng chèn 1 dòng CT, hay có thể chèn nhiều dòng CT? Nếu nhiều dòng CT thì từ dòng thứ 2, cột AA lấy ngày ở đâu? tại dòng tổng hay ngày của dòng CT liền kề phía trên?

Dạ anh ô AA13 Lấy ngày bắt đầu tại dòng tổng V12;

*Nếu nhiều dòng CT thì từ dòng thứ 2, cột AA lấy ngày ở đâu? (lấy CT liền kề phía trên + 1 ở đây là AA14 =AA13+1 )
và tương tự nếu có thêm dòng CT thì từ dòng thứ 3 thì ô AA15=AA14+1

Thêm giúp em điều kiện thứ 4 Vua nữa ạ, em thêm miết mà không hiểu nó bị gì trắng trơn