Anh chị giúp em tạo insert dòng theo số dòng mình cần với ạ. (1 người xem)

[taihuong]

Các cao thủ giúp em ca này với. Em có 1 code insert dòng thì tự sao chép các ô có công thức xuống, nhưng nó chỉ insert thêm được có 1 dòng à, em muốn mỗi lần chạy code nó hiện ra 1 box cho nhập số lượng dòng muốn insert thêm, em mò ra được các tạo box đó, nhưng không biết chỉnh lại code cho nó hiểu số dòng mình nhập vào box. anh chị giúp em với

 

[taihuong]

1. Sửa tiêu đề bài viết chứ không muốn bị "ném gạch, ném đá,..." và quan trọng là chẳng ai giúp
2. Insert dòng mà muốn copy công thức này nọ thì dùng code làm gì -> chuyển trang tính qua dạng Table là giải quyết vấn đề

Mình nghĩ tới table rồi, nhưng không áp dụng vào file công ty được, nên mình mới phải dùng tới code, code này mình cũng lấy từ GPE xuống, nhưng muốn nó linh động hơn tý thôi ah...chứ không mình cũng không muốn mất thời gian hỏi mọi người đâu mà

 

[Hoang2013]

Bạn thử với cái ni; mình không dám chắc:

Sub GPE()
    Dim R As Long, Chen As Long, C As Long
  
    R = Selection.Row
    Chen = InputBox("Só Dòng Muón Chèn Thêm:", "GPE.COM")
    If R = 0 Then Exit Sub
    Rows(R + 1 & ":" & R + 1).Resize(Chen).EntireRow.Insert
    For C = R + 1 To Chen
        If Cells(C - 1, "C").HasFormula = True Then
            Cells(C, "C").FormulaR1C1 = Cells(C - 1, "C").FormulaR1C1
        End If
    Next
End Sub

 

[taihuong]

Bạn thử với cái ni; mình không dám chắc:

Sub GPE()
    Dim R As Long, Chen As Long, C As Long
 
    R = Selection.Row
    Chen = InputBox("Só Dòng Muón Chèn Thêm:", "GPE.COM")
    If R = 0 Then Exit Sub
    Rows(R + 1 & ":" & R + 1).Resize(Chen).EntireRow.Insert
    For C = R + 1 To Chen
        If Cells(C - 1, "C").HasFormula = True Then
            Cells(C, "C").FormulaR1C1 = Cells(C - 1, "C").FormulaR1C1
        End If
    Next
End Sub

Bạn ơi, code của bạn giúp mình insert được số dòng theo yêu cầu rồi, nhưng nó không copy công thức từ dòng trên xuống, bạn giúp mình tý nữa với ...

 

[befaint]

copy công thức từ dòng trên xuống

Thử xem ở đây nhé.

 

[Hoang2013]

Nó có Copy công thức cột "C" thuộc dòng mới thêm không?

 

[taihuong]

Nó có Copy công thức cột "C" thuộc dòng mới thêm không?

Cột C của mình không có công thức, có cột A với B có công thức á bạn, code mình tham khảo được copy tất cả cột có công thức xuống khi insert rồi, mà mỗi tội nó chỉ chèn được 1 dòng mới á

 

[Hoang2013]

Thì tự bạn sửa "C" thành "A" hay "B" đi; hỏi hoài!

 

[taihuong]

Vậy trong bảng mình có khoảng 5 cột có công thức, ví dụ: A,B,E,K,J thì mình chèn như thế nào để code hiểu vậy bạn, mình mới tập tành mò vba thôi nên nhìu cái chưa hiểu lắm, bạn chỉ mình với...