Korumalı Sayfada Run-time error '1004' Kopyala - Yapıştır Sorunu

[unfors]

Sheets("IS_EMRI").Unprotect "503852"

cc = Sheets("IS_EMRI").Range("A65536").End(3).Row
 
If Sheets("IS_EMRI").Cells(cc, 1) = "Text" Then
Sheets("IS_EMRI").Range("A8 :L" & cc - 5).Select
Else
Sheets("IS_EMRI").Range("A8 :L" & cc).Select
End If

Selection.Copy

kk = AYARLAR.TextBox12.Value
Workbooks.Open kk

Sheets("SIPARIS").Activate
Sheets("SIPARIS").Unprotect "503852"
ss = Sheets("SIPARIS").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("SIPARIS").Cells(ss + 1, 1).Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Yukarıdaki kodu Sayfa Koruması olan sayfada çalıştırdığımda 'Range sınıfının Pastespecial yöntemi başarısız' hatası alıyorum. Korumasız sayfada kod çalışıyor. Sorunun kaynağı nedir bir türlü bulamadım.

 

[halit3]

Merhaba
bunu bir denermisiniz.

cc = Sheets("IS_EMRI").Range("A65536").End(3).Row

Worksheets("IS_EMRI").Protect Password:="503852", Contents:=False, Scenarios:=False
If Sheets("IS_EMRI").Cells(cc, 1) = "Text" Then
Sheets("IS_EMRI").Range("A8 :L" & cc - 5).Copy
Else
Sheets("IS_EMRI").Range("A8 :L" & cc).Copy
End If
Worksheets("IS_EMRI").Protect Password:="503852", Contents:=True, Scenarios:=True

kk = AYARLAR.TextBox12.Value
Workbooks.Open kk

Sheets("SIPARIS").Activate

Worksheets("SIPARIS").Protect Password:="503852", Contents:=False, Scenarios:=False
ss = Sheets("SIPARIS").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("SIPARIS").Cells(ss + 1, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Worksheets("SIPARISI").Protect Password:="503852", Contents:=True, Scenarios:=True

 

[unfors]

Maalesef aynı hatayı alıyorum

 

[muratb06]

Sipariş sayfası kk excel dosyasının içinde ise
Sheets("SIPARIS") ifadelerinin önüne kk. ekleyiniz.

kk.Sheets("SIPARIS") gibi.

iyi günler.

 

[halit3]

örnek dosyalarınızı ekleyiniz.

 

[unfors]

cc = Sheets("IS_EMRI").Range("A65536").End(3).Row
 
If Sheets("IS_EMRI").Cells(cc, 1) = "Text" Then
Set rCopy = Sheets("IS_EMRI").Range("A8 :A" & cc - 5).EntireRow
Else
Set rCopy = Sheets("IS_EMRI").Range("A8 :A" & cc).EntireRow
End If

kk = AYARLAR.TextBox12.Value

Set wbTarget = Application.Workbooks.Open(kk)

ss = Sheets("TEKLIF").Cells(Rows.Count, 1).End(xlUp).Row + 1

With wbTarget
With .Sheets("TEKLIF")
.Activate
    .Unprotect Password:="503852"
    rCopy.Copy
    .Range("A" & .Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues
End With
End With

Bu şekilde düzeltince sorun halledildi.