Thêm dòng sheet dữ liệu, thì sheet đơn giá cũng thêm dòng dữ liệu

[Trang Tuyet Ngoc Nhi]

Chào Anh chị !
Em có sheet TT dữ liệu, và sheet đơn giá. Em muốn khi thêm dòng hàng bên sheet TT dữ liệu thì sheet bên cạnh cũng được thêm.
Cụ thể file đính kèm trong sheet TT dữ liệu sản phẩm trâu em có 14 dòng hàng, giờ em thêm 1 dòng hàng nữa vào phía cuối ( dòng 17) thì sheet bên cạnh cũng tự động được thêm !
Mong anh chị xem và giúp đỡ, em cảm ơn nhiều ạ

 

[Hoàng Tuấn 868]

Hi Anh chị !
Em có sheet TT dữ liệu, và sheet đơn giá. Em muốn khi thêm dòng hàng bên sheet TT dữ liệu thì sheet bên cạnh cũng được thêm.
Cụ thể file đính kèm trong sheet TT dữ liệu sản phẩm trâu em có 14 dòng hàng, giờ em thêm 1 dòng hàng nữa vào phía cuối ( dòng 17) thì sheet bên cạnh cũng tự động được thêm !
Mong anh chị xem và giúp đỡ, em cảm ơn nhiều ạ

Bạn thử tham khảo tại đây xem sao

 

[Trang Tuyet Ngoc Nhi]

Bạn thử tham khảo tại đây xem sao

em không tìm thấy đáp án ở đây, rất mong các bác giúp em ạ ! em xin cảm ơn

 

[Hoàng Tuấn 868]

Hi Anh chị !

Rất tiếc, mình không hiểu nghĩa câu này nên không giúp gì được bạn.

 

[Trang Tuyet Ngoc Nhi]

Rất tiếc, mình không hiểu nghĩa câu này nên không giúp gì được bạn.

Chào anh chị ! Mong anh chị biết giúp đỡ em, em cảm ơn

 

[SA_DQ]

Bạn thử chạy macro sự kiện này:

Const MaxRws As Integer = 9999
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B3].Resize(MaxRws)) Is Nothing Then
    Cells(Target.Row, "A").Resize(, 2).Copy _
        Destination:=Sheets("Don Gia").Cells(MaxRws + 99, "A").End(xlUp).Offset(1)
       MsgBox "Chép Xong Rôi!", , "GPE.COM Xin Chào!"
End If
End Sub

Rồi sau đó tiến hành sắp xếp lại trang tính vừa được macro chép tới

 

[anhbanvuitinh9x]

Chào Anh chị !
Em có sheet TT dữ liệu, và sheet đơn giá. Em muốn khi thêm dòng hàng bên sheet TT dữ liệu thì sheet bên cạnh cũng được thêm.
Cụ thể file đính kèm trong sheet TT dữ liệu sản phẩm trâu em có 14 dòng hàng, giờ em thêm 1 dòng hàng nữa vào phía cuối ( dòng 17) thì sheet bên cạnh cũng tự động được thêm !
Mong anh chị xem và giúp đỡ, em cảm ơn nhiều ạ

bạn điều chỉnh lại dữ liệu để số dòng của 2 bảng ở 2 sheet có dữ liệu như nhau. sau đó sử dụng Group sheet (bạn chọn sheet đầu tiên sau đó nhấn giữ phím Ctrl và chọn sheet tiếp theo)

 

[Trang Tuyet Ngoc Nhi]

Bạn thử chạy macro sự kiện này:

Const MaxRws As Integer = 9999
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B3].Resize(MaxRws)) Is Nothing Then
    Cells(Target.Row, "A").Resize(, 2).Copy _
        Destination:=Sheets("Don Gia").Cells(MaxRws + 99, "A").End(xlUp).Offset(1)
       MsgBox "Chép Xong Rôi!", , "GPE.COM Xin Chào!"
End If
End Sub

Rồi sau đó tiến hành sắp xếp lại trang tính vừa được macro chép tới

E cảm ơn anh chị rất nhiều đã hỗ trợ em, nhưng em trình độ thấp quá, làm mãi chạy macro này mà vẫn không ra !

 

[Hoàng Tuấn 868]

E cảm ơn anh chị rất nhiều đã hỗ trợ em, nhưng em trình độ thấp quá, làm mãi chạy macro này mà vẫn không ra !

Lần sau bạn đừng dùng tiếng Tây và viết tắt nữa nhé. (Ghép hộ bác SA_DQ)