Nhờ tạo Macro copy dữ liệu

[tanlahill]

Nhờ các thành viên sớm giúp tôi file đính kèm theo yêu cầu có sẵn trong file. Cám ơn rất nhiều.

 

[tanlahill]

Thật tuyệt vời! Rất cám ơn.

Sao không copy từ dòng 8 Sh NK sang Dòng 8 của sh Data luôn. Mà phải copy từ dòng 13.

Sub copyData()
Dim endR As Long, eRow As Long
With Sheets("NK")
  eRow = .Cells(65000, 1).End(xlUp).Row
End With
With Sheets("Data")
  endR = .Cells(65000, 1).End(xlUp).Row
  If eRow > endR Then
    .Range(.Cells(endR, 1), .Cells(eRow, 28)).Value = Sheets("NK").Range(Cells(endR, 1), Cells(eRow, 28)).Value
  End If
End With
 
End Sub

Cám ơn bạn rất nhiều.
Tôi muốn làm như thế là để có bản dự phòng khi không may lở tay làm hỏng số liệu ở Sh NK thì sẽ có cái mà tìm lại chứ copy toàn bộ thì sẽ copy cả cái sai luôn! Bởi có lần đồng nghiệp cùng sử dung chung file và vô tình làm thế nào mà cả hơn chục xe liên tiếp của những ngày trước có cùng một đơn giá làm kết quả lệch hơn cả chục triệu VND mà vẫn không biết! Nguy hiểm quá!!! Giờ đây, đã có sự tận tâm giúp đỡ của bạn và tôi sẽ tạo thêm một thông báo mỗi khi kết quả ở 2 Sh bị lêch nhau và tất nhiên là sai lúc nào là biết lúc đó để khắc phục ngay!