hücre korumalı sayfanın aktarılması

[Ahmet TUNALI]

Mehaba,
Tarım ürünleri maliyet çalışmasında ürün maliyetini hazırlayınca aktarıyorum. Bazı hücreleri korumaya aldığımda aktarma işlemi hata veriyor.
Hücre korumalı sayfayı aktarma yapabiliyormuyuz.

 

[hamitcan]

ActiveSheet.Unprotect
'kodlarınız'
ActiveSheet.Protect

şeklinde deneyiniz.

 

[Ahmet TUNALI]

Sayın Hamitcan bey,
Tam olarak kod nereye yazmam gerektiğini anlayamadım. Dosya üzerinde gösterebilirseniz sevinirim.
İlginize teşekkürler.

 

[hamitcan]

Aktar başlıklı kod satırının başı ve sonuna ekleyip deneyin.

 

[Ahmet TUNALI]

Sayın Hamitcan bey, yine hata veriyor.

 

[Korhan Ayhan]

Deneyiniz.

Sub aktar2()
Set s1 = Sheets("Maliyet")
s1.Select
s1.Unprotect
For Each huc In [c8:c50].Cells
    huc.Select
    If huc.Value <> "" Then Call gonder(huc.Value, huc.Offset(0, 2))
Next huc
Call aktar
s1.Protect
End Sub

 

[Ahmet TUNALI]

Korhan bey günaydın,
Kodu girdiğimde 1004 hata" kodu worksheet sınıfının select yöntemi başarısız"
ayrıca maliyet sayfasındaki korunan hücrelerin korumasıda kaldırılıyor.
İlginize Teşekkürler.

 

[Ahmet TUNALI]

Korhan bey benim hatam iş gücü sayfasını aktif etmediğimden hata veriyor.
Sorunum çözüldü size çok teşekkür ediyorum.
Herşey gönlünüzce olsun.