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

Katılım
30 Ekim 2010
Mesajlar
108
Beğeniler
1
Excel Vers. ve Dili
2007 Türkçe
#1
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
11,749
Beğeniler
892
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
#2
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
14
Beğeniler
0
Excel Vers. ve Dili
2016TR
#4
Sipariş sayfası kk excel dosyasının içinde ise
Sheets("SIPARIS") ifadelerinin önüne kk. ekleyiniz.

kk.Sheets("SIPARIS") gibi.

iyi günler.
 
Katılım
30 Ekim 2010
Mesajlar
108
Beğeniler
1
Excel Vers. ve Dili
2007 Türkçe
#6
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