Hỏi về lưu dữ liệu tự động bằng VBA (1 người xem)

[lenguyenchuongduong]

Chào các anh chị.
Trong file tôi up lên có 2 sheet: PNK và Data. file này có viết sẵn 1 đoạn mã, khi bấm nút “LƯU” trong sheet PNK thì sẽ tự động lưu dữ liệu sang sheet “data” nhưng chỉ lưu được dòng đầu tiên thôi. Nếu muốn tự động lưu tất cả các dòng có dữ liệu thì phải sửa lại đoạn mã này như thế nào?
Vì chỉ lấy lại của người khác để sửa lại cho phù hợp với mục đích của mình chứ không có kiến thức về VBA, nên mong các anh chị giúp đỡ.
Chân thành cảm ơn.

 

[Quang_Hải]

Chào các anh chị.
Trong file tôi up lên có 2 sheet: PNK và Data. file này có viết sẵn 1 đoạn mã, khi bấm nút “LƯU” trong sheet PNK thì sẽ tự động lưu dữ liệu sang sheet “data” nhưng chỉ lưu được dòng đầu tiên thôi. Nếu muốn tự động lưu tất cả các dòng có dữ liệu thì phải sửa lại đoạn mã này như thế nào?
Vì chỉ lấy lại của người khác để sửa lại cho phù hợp với mục đích của mình chứ không có kiến thức về VBA, nên mong các anh chị giúp đỡ.
Chân thành cảm ơn.

Code này không có bẫy lỗi nếu có ô nào bị bỏ trống. Nếu bạn muốn bẫy lỗi thì tự thêm vào nha.
Mình chỉ viết code để bạn thấy được hướng sửa code thôi

Sub coppp()
With Sheets("PNK")
    .Range(.[B11], .[H11].End(4)).SpecialCells(2).Copy
    With Sheets("Data")
        .[E65536].End(3).Offset(1).PasteSpecial 1
        With .Range(.[A65536].End(3).Offset(1, 3), .[E65536].End(3))
            .Offset(, -3).Value = Now
            .Offset(, -1).Value = Sheets("PNK").[I5]
            .Offset(, -2).Value = Sheets("PNK").[I4]
        End With
    End With
End With
End Sub