Xin code copy và paste values dữ liệu trong bảng từ sheet "KL" sang sheet "PLHD". (1 người xem)

[Em khong biet]

Nhờ các bác giúp em viết code Copy và Paste values dữ liệu trong bảng từ sheet "KL" sang sheet "PLKL" trong file đính kèm.
Xin chân thành cảm ơn các bác!

 

[Tran Mui]

Bạn thử xem sao nhé
PP
Sub Test()
Sheets("PLHD").Range("A10:G112").Value = Sheets("KL”).Range("A13:G115").Value

End Sub

 

[Em khong biet]

Bạn thử xem sao nhé
PP
Sub Test()
Sheets("PLHD").Range("A10:G112").Value = Sheets("KL”).Range("A13:G115").Value

End Sub

Bị lỗi không chạy được bác ạ.

 

[comet_1701]

Bị lỗi không chạy được bác ạ.

Sub copy()
Sheets("KL").Range("A13", Sheets("KL").[A65000].End(3)).Resize(, 7).copy
Sheets("PLHD").Range("A65000").End(xlUp).Offset(1, 0).PasteSpecial
End Sub

Nếu chỉ đơn giản như vậy thì cần thế này thôi bạn ah

 

[hoangquanghn]

cái code này bị sai ở chỗ "KL” mà phải là "KL"

 

[Em khong biet]

Sub copy()
Sheets("KL").Range("A13", Sheets("KL").[A65000].End(3)).Resize(, 7).copy
Sheets("PLHD").Range("A65000").End(xlUp).Offset(1, 0).PasteSpecial
End Sub

Nếu chỉ đơn giản như vậy thì cần thế này thôi bạn ah

Tiếc quá bị lỗi bác ạ, khi click vào nút Copy ở sheet "KL" thì chỉ copy sang sheet "PLKL" từ dòng 56, em muốn từ dòng 10, và chỉ copy và paste values thui, nó vẫn còn công thức!

 

[comet_1701]

Tiếc quá bị lỗi bác ạ, khi click vào nút Copy ở sheet "KL" thì chỉ copy sang sheet "PLKL" từ dòng 56, em muốn từ dòng 10, và chỉ copy và paste values thui, nó vẫn còn công thức!

Tiếc gì mà tiếc chứ, bạn cứ để dòng trộn, chữ màu trắng làm gì, ai nhìn thầy file của bạn đâu ( mấy chỗ ngưới lập biểu đó ...), Bạn bỏ hết cái đó đi thì copy về dòng 10 thôi, mình ngại xóa lắm, bạn chỉnh file chuẩn trước khi gửi lên nhé. Ở sheet KL bạn bỏ trộn ô đi (tên người lập biểu ), ghi tên người lập biểu sang B và D là được thôi

Sub copy()
Sheets("PLHD").Range("A10:G5000").ClearContents

Sheets("KL").Range("A13", Sheets("KL").[A65000].End(3)).Resize(, 7).copy
Sheets("PLHD").Range("A65000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
End Sub

 

[Tran Mui]

Tôi đã sửa lại code và đính kèm file
Bạn xem lại nhé

 

[Em khong biet]

Cảm ơn các bác rất nhiều!