Tạo form và lưu dữ liệu theo cột/dòng (1 người xem)

[HopBVB]

Tôi có một form để nhập dữ liệu trên một sheet, sau khi nhập xong, click Nhập thì dữ liệu được lưu vào sheet khác. Trong đó, có một ô dữ liệu được lưu theo dòng, còn các ô còn lại được lưu theo cột. Chi tiết xin vui lòng xem file đính kèm.
Rất mong các bạn xem và chỉnh sửa lại code giúp tôi.
Trân trọng cảm ơn.

 

[concogia]

Tôi có một form để nhập dữ liệu trên một sheet, sau khi nhập xong, click Nhập thì dữ liệu được lưu vào sheet khác. Trong đó, có một ô dữ liệu được lưu theo dòng, còn các ô còn lại được lưu theo cột. Chi tiết xin vui lòng xem file đính kèm.
Rất mong các bạn xem và chỉnh sửa lại code giúp tôi.
Trân trọng cảm ơn.

Bạn thử làm thế này xem:
- Ở sheet "TongHop" bạn xóa hết các dòng tiêu đề ở hàng 1 đi ( các cell có chữ "Ngày báo cáo" )
- Sử dụng code này

Sub Nhap()
Dim SoDong As Long
SoDong = [A10000].End(xlUp).Row - 4
With Sheets("TongHop")
.[AX1].End(xlToLeft).Offset(, 1) = "Ngay bao cao: " & [B3]
.[AX2].End(xlToLeft).Offset(, 1).Resize(SoDong).Value = Range([A5], [A1000].End(xlUp)).Offset(, 1).Value
End With
Sheet1.Range([A3], [A1000].End(xlUp)).Offset(, 1).ClearContents
End Sub

Thân