Nhờ sửa lỗi code VBA copy paste value

[maimai_9x]

Em xin chào các tiền bối trong diễn đàn . Hiện tại em có 1 file excel đã đặt code copy paste. Tuy nhiên hiện tại code này đang paste cả toàn bộ giá trị và format. (Trong file đính kèm em đang copy từ sheet "ZM00900-In out" sang sheet "copy sang")
Em đang muốn chỉ paste giá trị thôi. Em đã thử tìm trên gg thì có hướng dẫn là thêm đuôi pastespecial xlpastevalues. Tuy nhiên khi em thêm mục này vào thì code không chạy (code em có để tại sheet "Tạo")

Kính nhờ các tiền bối xem giúp em với ạ.

Em xin cảm ơn

 

[TH2]

Em xin chào các tiền bối trong diễn đàn . Hiện tại em có 1 file excel đã đặt code copy paste. Tuy nhiên hiện tại code này đang paste cả toàn bộ giá trị và format. (Trong file đính kèm em đang copy từ sheet "ZM00900-In out" sang sheet "copy sang")
Em đang muốn chỉ paste giá trị thôi. Em đã thử tìm trên gg thì có hướng dẫn là thêm đuôi pastespecial xlpastevalues. Tuy nhiên khi em thêm mục này vào thì code không chạy (code em có để tại sheet "Tạo")

Kính nhờ các tiền bối xem giúp em với ạ.

Em xin cảm ơn

Thử tách dòng này

WB.Cells(2, colB).Resize(lastrow - 1, 1).Copy WA.Cells(Rend, colA).pastespecial xlpastevalues

thành 2 dòng

WB.Cells(2, colB).Resize(lastrow - 1, 1).Copy
WA.Cells(Rend, colA).pastespecial xlpastevalues

là chuẩn

 

[maimai_9x]

Thử tách dòng này

WB.Cells(2, colB).Resize(lastrow - 1, 1).Copy WA.Cells(Rend, colA).pastespecial xlpastevalues

thành 2 dòng

WB.Cells(2, colB).Resize(lastrow - 1, 1).Copy
WA.Cells(Rend, colA).pastespecial xlpastevalues

là chuẩn

Mình thử lại chạy được rồi ạ. Cảm ơn bạn nhiều nhé.