Lỗi #N/A trong kết quả khi chạy code VBA (2 người xem)

[thao nguyen01]

Kính gửi anh/chị,

Anh chị xem giúp em vấn đề sau ạ. Em muốn copy vùng dữ liệu từ A4:C8 nối tiếp đến phần kết quả ạ. Nhưng code em viết em không hiểu sai chỗ nào nên báo lỗi N/A ạ.

Kết quả: Em muốn copy vùng dữ liệu từ A4:C8 đến phần kết quả, sau đó nếu qua Tháng tiếp em sẽ sửa trên vùng A4:C8 thì khi chạy code, sẽ copy vùng A4:C8 mới và dán nối tiếp vào phần kết quả ạ.

Anh/chị xem giúp em ạ. Em cảm ơn ạ.

 

[SA_DQ]

Bạn thử xài con macro này, cũng không chậm là bao:

Sub CopyVungDuLieu()
 Dim lRw As Long
 
lRw = [G65500].End(xlUp).Row + 1
Range("A4:C8").Copy Destination:=Cells(lRw, "G")
End Sub

 

[thao nguyen01]

Bạn thử xài con macro này, cũng không chậm là bao:

Sub CopyVungDuLieu()
Dim lRw As Long

lRw = [G65500].End(xlUp).Row + 1
Range("A4:C8").Copy Destination:=Cells(lRw, "G")
End Sub

Dạ, em cảm ơn Thầy @SA_DQ nhiều lắm ạ. Em chạy code thì bên phần kết quả copy cả định dạng kẻ khung luôn ạ. Thầy hướng dẫn giúp em chỉnh code để chỉ copy giá trị, nội dung, không copy định dạng ạ.

 

[HeSanbi]

Sub CopyVungDuLieu()
  [G65500].End(xlUp)(2, 1).Resize([A4:C8].Rows.Count, [A4:C8].Columns.Count) = [A4:C8].Value
End Sub

 

[thao nguyen01]

Sub CopyVungDuLieu()
  [G65500].End(xlUp)(2, 1).Resize([A4:C8].Rows.Count, [A4:C8].Columns.Count) = [A4:C8].Value
End Sub

Dạ, em cảm ơn anh ạ. Em chạy code thì code chỉ copy cột A vào cột G mà chưa copy vùng A4:C8 ạ. Anh xem giúp em ạ. Em cảm ơn anh

 

[HeSanbi]

Dạ, em cảm ơn anh ạ. Em chạy code thì code chỉ copy cột A vào cột G mà chưa copy vùng A4:C8 ạ. Anh xem giúp em ạ. Em cảm ơn anh

Copy lại một lần nữa đi bạn. Tại tôi nhìn nhầm chữ C thành chữ A.

 

[thao nguyen01]

Copy lại một lần nữa đi bạn. Tại tôi nhìn nhầm chữ C thành chữ A.

Dạ, em chạy ra đúng rồi ạ. Em cảm ơn anh nhiều ạ