Giúp code VBA Insert dòng tự động copy luôn công thức (1 người xem)

[dangvu45]

Chào các bác, e có file báo giá dưới, e có 2 yêu cầu cần trợ giúp như sau :
1) Code VBA cho 2 nút insert tự động thêm dòng và cả công thức : nút insert 1 copy từ dòng 26 , nút insert 2 copy từ dòng 32.
2) Có cách nào viết code để người dùng có thể tự chọn dòng muốn insert và tự chọn số dòng muốn insert được không ạ, tất nhiên là vãn giữ nguyên công thức như vậy.
Em xin cảm ơn!

 

[phulien1902]

Chào các bác, e có file báo giá dưới, e có 2 yêu cầu cần trợ giúp như sau :
1) Code VBA cho 2 nút insert tự động thêm dòng và cả công thức : nút insert 1 copy từ dòng 26 , nút insert 2 copy từ dòng 32.
2) Có cách nào viết code để người dùng có thể tự chọn dòng muốn insert và tự chọn số dòng muốn insert được không ạ, tất nhiên là vãn giữ nguyên công thức như vậy.
Em xin cảm ơn!

Bạn chọn dòng cần Insert rồi chạy Code:

Sub abc()
    Dim R As Long, LC As Long, C As Long
    R = Selection.Row
    LC = Selection.Columns.Count
    Selection.EntireRow.Insert
    For C = 2 To LC
        If Cells(R - 1, C).HasFormula = True Then
            Cells(R, C).FormulaR1C1 = Cells(R - 1, C).FormulaR1C1
        End If
    Next
End Sub

 

[Mr Joker]

Bạn chọn dòng cần Insert rồi chạy Code:

Sub abc()
    Dim R As Long, LC As Long, C As Long
    R = Selection.Row
    LC = Selection.Columns.Count
    Selection.EntireRow.Insert
    For C = 2 To LC
        If Cells(R - 1, C).HasFormula = True Then
            Cells(R, C).FormulaR1C1 = Cells(R - 1, C).FormulaR1C1
        End If
    Next
End Sub

Bác ơi cho em hỏi là em dùng Code này chạy insert dòng thì ok rồi nhưng sao mà nó vẫn không thấy giữ nguyên công thức nhỉ?
Bác giúp em với !!!

 

[phulien1902]

Bác ơi cho em hỏi là em dùng Code này chạy insert dòng thì ok rồi nhưng sao mà nó vẫn không thấy giữ nguyên công thức nhỉ?
Bác giúp em với !!!

Bạn chọn 1 dòng nào đó cần Insert rồi chạy Code xem thế nào, tôi thấy có như bạn nói đâu.

 

[Mr Joker]

Bạn chọn 1 dòng nào đó cần Insert rồi chạy Code xem thế nào, tôi thấy có như bạn nói đâu.

À được rồi bác à, chắc vừa rồi em chọn dòng không có công thức nên Insert thêm nó không có công thức, đoảng quá >"<

 

[Mr Joker]

Bạn chọn dòng cần Insert rồi chạy Code:

Sub abc()
    Dim R As Long, LC As Long, C As Long
    R = Selection.Row
    LC = Selection.Columns.Count
    Selection.EntireRow.Insert
    For C = 2 To LC
        If Cells(R - 1, C).HasFormula = True Then
            Cells(R, C).FormulaR1C1 = Cells(R - 1, C).FormulaR1C1
        End If
    Next
End Sub

Chào bác phulien1902 !
Bác giúp em thêm 1 vấn đề được không ạ.
Em dùng đoạn code của bác thì áp dụng ngon lành rồi, nhưng khi em muốn Insert 1 dòng ngay dưới dòng đã chọn VÍ DỤ như em sẽ chọn dòng 3 và chạy code sẽ cho thêm 1 dòng ngay dưới dòng 3 và giữ nguyên công thức từ dòng 3.
NHƯNG 1 điều quan trọng em cần là dòng vừa chèn thêm đó giữ nguyên dữ liệu value (không được copy công thức) của ô A3 : D3 xuống ạ, dù ô A3 : D3 là em đã đặt công thức tại đó để lấy dữ liệu từ sheet khác. Bác xem chi tiết trong file nhé.

Mong bác giúp em với ạ!

 

[PacificPR]

Chào bác phulien1902 !
Bác giúp em thêm 1 vấn đề được không ạ.
Em dùng đoạn code của bác thì áp dụng ngon lành rồi, nhưng khi em muốn Insert 1 dòng ngay dưới dòng đã chọn VÍ DỤ như em sẽ chọn dòng 3 và chạy code sẽ cho thêm 1 dòng ngay dưới dòng 3 và giữ nguyên công thức từ dòng 3.
NHƯNG 1 điều quan trọng em cần là dòng vừa chèn thêm đó giữ nguyên dữ liệu value (không được copy công thức) của ô A3 : D3 xuống ạ, dù ô A3 : D3 là em đã đặt công thức tại đó để lấy dữ liệu từ sheet khác. Bác xem chi tiết trong file nhé.

Mong bác giúp em với ạ!

Lúc trước Mình cũng có nghịch cái này rồi. Không biết có đúng yêu cầu của bạn không nữa

 

[Mr Joker]

Lúc trước Mình cũng có nghịch cái này rồi. Không biết có đúng yêu cầu của bạn không nữa

Dạ em cảm ơn bác.
Nhưng bác ơi em thấy nó copy cả dữ liệu những ô không có công thức ạ, em chỉ muốn nó copy tất cả công thức xuống thôi
Chỉ riêng ô A3 : D3 là em chỉ cần nó copy dữ liệu không, không cần đi theo công thức