Copy và PasteSpecial với vùng Paste được Set từ trước

[lehoctk]

Xin chào cả nhà, em đang Copy và PasteSpecial với vùng Paste được thiết lập trước như Code bên dưới nhưng bị lỗi Runtime Error 1004: Application-defined or object-defined error, rất mong a/c chỉ giáo giúp em nguyên nhân và cách khắc phục ạ.
Em cảm ơn

Set Sh1 = Sheet1
Set PasteRange = Sh1.Range("A2")
Sheet2.Range("B1:K3").Copy
PasteRange.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sh1.Paste

 

[BuiQuangThuan]

Xin chào cả nhà, em đang Copy và PasteSpecial với vùng Paste được thiết lập trước như Code bên dưới nhưng bị lỗi Runtime Error 1004: Application-defined or object-defined error, rất mong a/c chỉ giáo giúp em nguyên nhân và cách khắc phục ạ.
Em cảm ơn

Mình chạy code trên có thấy vấn đề gì đâu nhỉ

 

[huhumalu]

Xin chào cả nhà, em đang Copy và PasteSpecial với vùng Paste được thiết lập trước như Code bên dưới nhưng bị lỗi Runtime Error 1004: Application-defined or object-defined error, rất mong a/c chỉ giáo giúp em nguyên nhân và cách khắc phục ạ.
Em cảm ơn

Set Sh1 = Sheet1
Set PasteRange = Sh1.Range("A2")
Sheet2.Range("B1:K3").Copy
PasteRange.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sh1.Paste

File excel của bạn có đủ sheet1, sheet2 không ?
Bạn tham khảo sử dụng việc quản lý Sheetname

Set Sh1= sheets("Tên Sheet")

Tham khảo mục 7:

Thủ thuật nhằm tăng tốc chương trình

1/ Tăng tốc và không cho màn hình nhấp nháy (flickering): Sub NoScreenRePainting() Application.ScreenUpdating=False 'Dat code cua ban o day Application.ScreenUpdating=True End Sub 2/ Ngăn chặn việc tính toán trong khi thi hành mã: Sub NoCalculations() Application.Calculation...

www.giaiphapexcel.com

 

[htin1997]

Xin chào cả nhà, em đang Copy và PasteSpecial với vùng Paste được thiết lập trước như Code bên dưới nhưng bị lỗi Runtime Error 1004: Application-defined or object-defined error, rất mong a/c chỉ giáo giúp em nguyên nhân và cách khắc phục ạ.
Em cảm ơn

Set Sh1 = Sheet1
Set PasteRange = Sh1.Range("A2")
Sheet2.Range("B1:K3").Copy
PasteRange.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sh1.Paste

Xin lỗi nếu có sai.
Em nhớ cũng từng bị cái lỗi này, giải pháp lúc đó hơi hài hước là select vùng dán trước, sau đó Activesheet.paste.....
Bác thử xem sao

 

[lehoctk]

Xin lỗi nếu có sai.
Em nhớ cũng từng bị cái lỗi này, giải pháp lúc đó hơi hài hước là select vùng dán trước, sau đó Activesheet.paste.....
Bác thử xem sao

Vâng, như bác hướng dẫn thì chắc chắn được, ngay trên code của em chỉ cần không set và code trực tiếp tên sheet vào phương thức PasteSpacial thì cũng vẫn được bác ạ, nhưng em đang mong muốn tìm cách nào để có thể Set vùng rồi gọi phương thức PasteSpecial ấy ạ
Cảm ơn bác.

Bài đã được tự động gộp: 15/8/22

File excel của bạn có đủ sheet1, sheet2 không ?
Bạn tham khảo sử dụng việc quản lý Sheetname

Set Sh1= sheets("Tên Sheet")

Tham khảo mục 7:

Thủ thuật nhằm tăng tốc chương trình

1/ Tăng tốc và không cho màn hình nhấp nháy (flickering): Sub NoScreenRePainting() Application.ScreenUpdating=False 'Dat code cua ban o day Application.ScreenUpdating=True End Sub 2/ Ngăn chặn việc tính toán trong khi thi hành mã: Sub NoCalculations() Application.Calculation...

www.giaiphapexcel.com

File của em có đủ các Sheet bác ạ, nếu em Code theo cách Sheet1.Range("B2").PasteSpecial thì không bị lỗi bác ạ, nhưng em muốn dùng phương pháp Set để nếu sau này cần cập nhật code em chỉ cần thay đổi trong câu lệnh Set cho tiện ạ.

Bài đã được tự động gộp: 15/8/22

Mình chạy code trên có thấy vấn đề gì đâu nhỉ

Vâng bác, em vừa kiểm tra lại thì đúng là không có lỗi, chắc do em set nhầm ở code trong em em kết hợp với các code xử lý vấn đề khác trước đó.
Cảm ơn bác, em sẽ kiểm tra lại ạ