kopyala yapıştır kodlarında hata mesajı

[numan şamil]

Merhaba arkadaşlar
Aşadaki kodlarda "ActiveSheet.Paste " hata veriyor bunun nedeni nedir?

Sub MayısKopyalaYapıştır()
Sheets("Raporlama").Select
Range("A2:G400").Select

Selection.Copy
ActiveSheet.Unprotect Password:="357"
Sheets("Raporlamakopyala").Select
Range("A3").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
ActiveSheet.Protect Password:="357"
End Sub

 

[serqet]

ActiveSheet.Unprotect Password:="357" Bu işlem bir önceki kopyalamayı devreden çıkarıyor. Bellekte kopyalanacak bir şey olmadığından paste hata veriyor.

 

[serqet]

Sub Makro3()

Sheets("Raporlama").Select
ActiveSheet.Unprotect
Sheets("Raporlamakopyala").Select
ActiveSheet.Unprotect
Sheets("RAporlama").Select
Range("A2:G400").Select
Selection.Copy
Sheets("Raporlamakopyala").Select
ActiveSheet.Paste
Range("A3").Select
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Sheets("RAporlama").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("A1").Select
End Sub

Bunu yazın.

 

[numan şamil]

Selamlar öncelikle ilginize teşekkürler
Benim istediğim "Raporlama" adlı sayfanın ilgili alanını "Raporlamakopyala" adlı sayfanın sayfa korumasını açıp kopyala yapıştır işleminden sonra sadece "Raporlamakopyala" sayfasını sayfa korumasına alması ("Raporlama"sayfasını korumaya almayacak) ve tekrar "Raporlama" sayfasının görüntüye gelmesidir iyi çalışmalar

 

[leumruk]

Merhaba,
Kodunuzu aşağıdaki ile değiştirin.

Sub MayısKopyalaYapıştır()
Application.ScreenUpdating = False
Sheets("Raporlamakopyala").Unprotect
Sheets("Raporlama").Range("A2:G400").Copy
Sheets("Raporlamakopyala").Range("A3").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Sheets("Raporlamakopyala").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

 

[numan şamil]

Merhaba,
Kodunuzu aşağıdaki ile değiştirin.
Sub MayısKopyalaYapıştır()
Application.ScreenUpdating = False
Sheets("Raporlamakopyala").Unprotect
Sheets("Raporlama").Range("A2:G400").Copy
Sheets("Raporlamakopyala").Range("A3").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Sheets("Raporlamakopyala").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Merhaba
kodlarınız tam istediğim gibi çalıştı ellerinize sağlık. iyi akşamlar.