Cập nhật dữ liệu của 1 sheet vào 1 sheet tổng (1 người xem)

[hoanghuytfs]

Hi các bạn !
Mình có 1 file excel yêu cầu cần làm như sau :
- khi click nút : CAP NHAT PXK , thì dữ liệu bên sheet XUAT_1 sẽ được cập nhật tiếp theo vào hàng dưới cùng còn trống của sheet TONGXUAT
=> các bạn vui lòng viết code VBA giúp đỡ mình với

Thanks !

 

[nghiaphuc]

Hi các bạn !
Mình có 1 file excel yêu cầu cần làm như sau :
- khi click nút : CAP NHAT PXK , thì dữ liệu bên sheet XUAT_1 sẽ được cập nhật tiếp theo vào hàng dưới cùng còn trống của sheet TONGXUAT
=> các bạn vui lòng viết code VBA giúp đỡ mình với

Thanks !

Bạn dùng code sau nhé:
[GPECODE=vb]Private Sub CommandButton1_Click()
Sheet2.[B65000].End(xlUp).Offset(1).Resize(1000, 4).Value = Sheet1.[B4:E4].Resize(1000).Value
Sheet2.[A5].Resize(Sheet2.[B65000].End(xlUp).Row - 4) = [=ROW(1:10000)]
Sheet2.[A4].CurrentRegion.Borders.LineStyle = 1
Sheet1.[B4:E4].Resize(1000).ClearContents
End Sub[/GPECODE]
Câu lệnh cuối cùng trong code trên dùng để xóa dữ liệu ở sheet XUAT_1 (đã chuyển qua sheet TONGXUAT), nếu bạn thấy không cần thì xóa nó đi.