Hata mesajı

[dbicer83]

ekteki hata mesajı nedir?

 

[dbicer83]

Bu hatayı veren dosya end der ikinci defa butona basarsam işlem yapıyor fakat ilk çalıştırılmada bu hata mesajı ile karşılaşıyorum.

 

[dbicer83]

Hata pek anlaşılmadı herhalde hiç kimseden cevap alamıyorum.

 

[dbicer83]

Hata mesajı hakkında herhangi bir görüşü olan varmı arkadaşlar.

 

[Levent Menteşoğlu]

Hatayı veren kodları yazarmısınız.

 

[Orion1]

Zaten üzerinde yazıyor.Yapıştırma yapamıyor.
Büyük bir ihtimalle ya kopyalama yapmadınız yada kopyaladığınız bir değeri korumalı bir sayfada kilitli bir hücreye yapıştırmaya kalktınız.

 

[dbicer83]

nasıl düzeltebilirm peki
kopyalama yapılan sayfa korumalı ilk seferde kopyalamıyor end der de 2 defa çalıştırısak işlemiş yapıyor buton teşekkürler ilginizden dolayı

 

[Orion1]

Şifre yoksa

activesheet.unprotect
'yapıştırma Kodu
activesheetprotect

Şifreli ise

activesheet.unprotect "Şifreniz"
'yapıştırma kodu
activesheet.protect "Şifreniz"

 

[dbicer83]

bir sorunumda http://www.excel.web.tr/showthread.php?t=48159 bu konu başlığında onunla ilgilebilirmisin evren bey

 

[dbicer83]

çok teşekkür ederim.

 

[dbicer83]

Kodlar aşağıdaki gibidir.
Burada Aktar Butonuna basılmasıyla aktarma işlemi yapıyor fakat ben bunu
program çalıştırılmasıyla kapatılması arasında 1 kere basılmasını bir kere
aktarma işlemini yapmasını ikinci defa uayrı verip tekrar yapılamayacağı
uyarısını vermesini istiyorum

Sub AKTAR()
Set s1 = Sheets("PAZAR")
Set S2 = Sheets("PTESİ")
Sheets("PAZAR").Select
s1.[O4:O35].Copy
Sheets("PTESİ").Unprotect "AAAAAAA"
S2.[F4:F35].PasteSpecial Paste:=xlPasteValues
s1.[O39:O58].Copy
S2.[F39:F58].PasteSpecial Paste:=xlPasteValues
s1.[O62:O75].Copy
S2.[F62:F75].PasteSpecial Paste:=xlPasteValues
s1.[O79:O94].Copy
S2.[F79:F94].PasteSpecial Paste:=xlPasteValues
s1.[O98:O117].Copy
S2.[F98:F117].PasteSpecial Paste:=xlPasteValues
s1.[O126].Copy
S2.[F126].PasteSpecial Paste:=xlPasteValues
s1.[O128:O133].Copy
S2.[F128:F133].PasteSpecial Paste:=xlPasteValues
s1.[O135:O137].Copy
S2.[F135:F137].PasteSpecial Paste:=xlPasteValues

s1.[Z4:Z40].Copy
S2.[S4:S40].PasteSpecial Paste:=xlPasteValues
s1.[Z42:Z92].Copy
S2.[S42:S92].PasteSpecial Paste:=xlPasteValues

s1.[B89].Copy
S2.[C4].PasteSpecial Paste:=xlPasteValues

Sheets("PTESİ").Select
ActiveSheet.Protect "AAAAAAA"
Sheets("RAPOR").Select: Range("J19").Select

End Sub

 

[Orion1]

Boş bir standart modül oluşturun ve aşağıdai kodu yazın.

Public ikaz As Byte

Sizin yazdığınız kodların en başına aşağıdaki kodları yazın.

ikaz = ikaz + 1
If ikaz > 1 Then
    MsgBox "Kodlar 2nci defa çalıştırılamaz..!!", vbCritical, "DİKKAT"
    Exit Sub
End If

 

[dbicer83]

size gerçekten çok teşekkür ederim.
işlemi yapıyor fakat sayfa korumasıyla ilgili hatayı veriyor
hataya yine end der 2 defa denersem çalışıyor
bu hatayı nasıl kaldırabiliriz.

 

[dbicer83]

sorun çözüldü teşekkürler.

 

[Orion1]

sorun çözüldü teşekkürler.

Rica ederim.