Lỗi sheet data nhập lần sau mất dòng trước.

[Ngoc Yen 2012%]

Em mới làm quen VBA nhưng khi em nhập nội dung mới thì bị mất nội dung nhập trước đó. Xin các thành viên cứu em với em xin đa tạ nhiều nhiều lắm.

 

[giaiphap]

Em mới làm quen VBA nhưng khi em nhập nội dung mới thì bị mất nội dung nhập trước đó. Xin các thành viên cứu em với em xin đa tạ nhiều nhiều lắm.

Sửa đoạn code của bạn lại thế này.

Sub THONGTIN()
With Sheet2
    .Range("C65000").End(xlUp).Offset(1).Resize(, 7).Value = Application.Transpose(Sheet1.Range("D5:D11").Value)
End With
End Sub

 

[be_09]

Code trong File, Số tứ tự tại D5 tự động tăng khi nhập liệu:

Sub NhapLieu()
    Dim DongCuoi As Range 'Đặt biến
    Set DongCuoi = Sheet2.Range("A" & Rows.Count).End(xlUp).Offset(1, 0) 'Chọn Cell cuối côt A
    Sheet1.Range("D5:D11").Copy
    DongCuoi.PasteSpecial (xlValues), Transpose:=True 'Chuyển dọc thành ngang
End Sub