Đưa các nội dung ở các Cell rời rạc sang Sheet khác theo hàng dọc

[lovelyghost]

Chào cả nhà!
Em đang làm bài tập thực hành nhưng phần code VBB em làm mãi mà không biết có cách nào đê khi nhấn "Lưu" dữ liệu các ô đó sẽ sang tương ứng bên Sheet "data". Có ai biết code giúp nhé! Thanks!

 

[ThuNghi]

Chào cả nhà!
Em đang làm bài tập thực hành nhưng phần code VBB em làm mãi mà không biết có cách nào đê khi nhấn "Lưu" dữ liệu các ô đó sẽ sang tương ứng bên Sheet "data". Có ai biết code giúp nhé! Thanks!

Gợi ý nhé. Bạn tự record macro ghi lại thử và gán vào dòng cuối.
1/ Xác định dòng cuối của Sh Data bằng end(Xlup).Row
2/ Gán từng đối tượng vào theo dòng cuối +1 và theo thứ tự cột.
Tựa như sau, bạn tự làm tiếp.

Sub Luu()
Dim endR As Long 'khai bien'
Sheets("Data").Select
endR = Range("A65000").End(xlUp).Row + 1

Range("B" & endR).Value = Sheets("nhaphoc").Range("C5").Value 'gan ten'
'....'

End Sub