• FORUMU MOBİL UYGULAMADAN TAKİP EDİN

    Forumu isteyen üyelerimiz Tapatalk (Harici bir hizmet) üzerinden mobil uygulamadan takip edebilirler.
    iOS için : https://itunes.apple.com/app/id307880732?mt=8
    Android için : https://play.google.com/store/apps/details?id=com.quoord.tapatalkpro.activity
    adreslerinden indirebilirsiniz.

    Bir iki haftaya da foruma özel kendi uygulamamız yayında olacak.
ALTIN ÜYELİK Hakkında Bilgi
-----------------------

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

Katılım
30 Ekim 2010
Mesajlar
64
Beğeniler
0
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.
 
Katılım
18 Ocak 2008
Mesajlar
11,209
Beğeniler
232
Excel Vers. ve Dili
2003 excel 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
6
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
64
Beğeniler
0
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