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

Katılım
30 Ekim 2010
Mesajlar
108
Excel Vers. ve Dili
2007 Türkçe
Kod:
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

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,757
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Merhaba
bunu bir denermisiniz.



Kod:
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
 
Katılım
29 Ekim 2018
Mesajlar
29
Excel Vers. ve Dili
2016TR
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

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,757
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
örnek dosyalarınızı ekleyiniz.
 
Katılım
30 Ekim 2010
Mesajlar
108
Excel Vers. ve Dili
2007 Türkçe
Kod:
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.
 
Üst