Tự động thêm dòng và copy công thức ở dòng trên (1 người xem)

[trongtuankt]

Em chào anh chị trong nhóm
Em đang làm 1 file sổ sách nhưng chưa hoàn thiện mong anh chị trong nhóm giúp đỡ. Em có 2 sheet (em kèm đính kèm theo) sheet 1 dùng để nhập dữ liệu, sheet 2 tự động copy dữ liệu được nhập từ sheet 1, nhưng có vấn đề là em không muốn tạo nhiều dòng trong bảng của sheet 2 quá, em muốn là khi số dòng trong bảng còn 1 hay 2 dòng thì sẽ tự động thêm 2 hay 5 dòng và các dòng mới thêm vào có công thức của các dòng trên.
Em cảm ơn anh chị ạ.

 

[comet_1701]

Em chào anh chị trong nhóm
Em đang làm 1 file sổ sách nhưng chưa hoàn thiện mong anh chị trong nhóm giúp đỡ. Em có 2 sheet (em kèm đính kèm theo) sheet 1 dùng để nhập dữ liệu, sheet 2 tự động copy dữ liệu được nhập từ sheet 1, nhưng có vấn đề là em không muốn tạo nhiều dòng trong bảng của sheet 2 quá, em muốn là khi số dòng trong bảng còn 1 hay 2 dòng thì sẽ tự động thêm 2 hay 5 dòng và các dòng mới thêm vào có công thức của các dòng trên.
Em cảm ơn anh chị ạ.

Sub So()
Dim i, KQ, Sarr, Arr, k
With Sheets("NKC")
    Sarr = .Range(.[A8], .[A5000].End(xlUp)).Resize(, 7).Value2
End With
ReDim Arr(1 To UBound(Sarr, 1), 1 To 6)
k = 0
With Sheets("Socai")
    For i = 1 To UBound(Sarr, 1)
        If Sarr(i, 5) = .[C5].Value Or Sarr(i, 6) = .[C5].Value Then
            k = k + 1
            Arr(k, 1) = Sarr(i, 2)
            Arr(k, 2) = Sarr(i, 3)
            Arr(k, 3) = Sarr(i, 4)
            If Sarr(i, 5) = .[C5].Value Then
                Arr(k, 4) = Sarr(i, 6)
                Arr(k, 5) = Sarr(i, 7)
            Else
                Arr(k, 4) = Sarr(i, 5)
                Arr(k, 6) = Sarr(i, 7)
            End If
        End If
    Next
    .[A10:F15].ClearContents
    If k Then
        .[A10].Resize(UBound(Sarr, 1), 6).Value = Arr
    End If
End With
End Sub

Mình thử viết 1 đoạn , bạn xem đã đúng chưa rồi tính tiếp nhé
File sao chống trơn vậy bạn, chả có dữ liệu gì cả. bạn nên thêm dữ liệu vào nhé

 

[trongtuankt]

Hi, em sợ không làm được nên chưa giám xd file theo cách này, rất cảm ơn anh đã giúp ạ.

 

[trongtuankt]

Em vừa thử thêm công thức, nhập số liệu, sheet Socai không tự thêm dòng anh ạ, em thử ấn vào "Run" thì bảng Socai đó bị mất công thức, không biết em sai ở đâu nữa, anh chỉ giúp em với, em cảm ơn ạ. (file này em đã thêm số liệu với công thức rồi ạ).

 

[comet_1701]

Em vừa thử thêm công thức, nhập số liệu, sheet Socai không tự thêm dòng anh ạ, em thử ấn vào "Run" thì bảng Socai đó bị mất công thức, không biết em sai ở đâu nữa, anh chỉ giúp em với, em cảm ơn ạ. (file này em đã thêm số liệu với công thức rồi ạ).

Private Sub Worksheet_Change(ByVal Target As Range)
    If [B50000].End(xlUp).Row - Target.Row = 2 Then
        If Len(Target) Then Target.Offset(1).Resize(5).EntireRow.Insert
    End If
End Sub

Bạn chép đoạn code này vào sheet sổ cái (sau khi alt+f11), kích đúp vào sheet sổ cái. Tự động thêm công thức nên thêm 1 dòng phụ ( không được trộn ô) rồi dùng chế độ table ở Tab insert (tìm google nếu bạn chưa biết tính năng này nhé)
sổ cái còn 2 dòng sẽ tự động thêm 5 dòng mới (Trước chữ end 2 dòng thêm một ký tự bất kỳ là đã thêm 5 dòng mới nhé)
code không chạy khi ấn run là vì bạn đã thay 112 ở C3 trong khi code ban đầu mình viết ở C5, bạn thay C5 bằng C3 trong Code là ok

 

[trongtuankt]

Em cảm ơn anh nhiều, rất chi tiết ạ.