Tạo nút khi nhấn vào thì dữ liệu được copy 1 vùng từ sheet đó vào tiếp của 1 sheet # (1 người xem)

[ThuyNguyenHN]

Chào các anh chị!

Em có file excel như file đính kèm. Mục đích em muốn khi nhấn vào nút OUT PUT DATA thì tự động copy vùng B2:O10 của sheet CT và Paste (Paste chỉ Value) vào vùng B2:O10 của sheet Output. Sau đó khi giá trị trong ô B1 thay đổi thì vùng B2:O10 của sheet CT sẽ thay đổi khi đó nhấn tiếp vào nút OUT PUT DATA thì vùng B2:O10 tiếp tục được copy và Paste Value chèn liên tiếp phía dưới (vùng B11:O19) của sheet Output, cứ như vậy giá trị của vùng B2:O10 được chèn liên tiếp vào sheet Output mỗi khi nhấn nút OUT PUT DATA ở sheet CT
(Trong file VD vùng được paste value tiếp theo vào được tô màu xanh)

Cảm ơn các anh chị!

 

[vietbaotam34]

Đang tìm cái này, cám ơn bạn nhé

 

[ThuyNguyenHN]

Bổ sung tiêu đề cho dòng 1 (Cột B) của sheet Output để code căn cứ vào đó mà lưu cho đúng dữ liệu

Sub Luu()
Dim Data
With Sheets("CT")
    Data = Range(.[B2], .[B10]).Resize(, 14).Value
End With
With Sheets("Output")
    .[B65000].End(3).Offset(1).Resize(UBound(Data), UBound(Data, 2)) = Data
End With
End Sub

Mình cảm ơn bạn!
Mình đã thử code của bạn đã được. Tuy nhiên nếu trường hợp mình chỉ muốn copy và paste value trong vùng màu vàng đó mà không có phần tiêu đề thì code sẽ được sửa lại thế nào ak?

Cảm ơn bạn rất nhiều! HPKhuong

 

[Ba Tê]

Mình cảm ơn bạn!
Mình đã thử code của bạn đã được. Tuy nhiên nếu trường hợp mình chỉ muốn copy và paste value trong vùng màu vàng đó mà không có phần tiêu đề thì code sẽ được sửa lại thế nào ak?

Cảm ơn bạn rất nhiều! HPKhuong

Chạy code này thử xem sao.

Sub GPE()
Sheets("Output").Range("B65536").End(xlUp).Offset(1).Resize(9, 14).Value = Sheets("CT").Range("B2:O10").Value
MsgBox "XONG", , "GIAIPHAPEXCEL"
End Sub

 

[ThuyNguyenHN]

Cảm ơn bạn!

Một đoạn code rất hữu ích với mình!

Một lần nữa cảm ơn HPKhuong và Ba Tê nhé!