Korumalı Sayfada Kopyala Yapıştır

[ERMAN SAYINALP]

Değerli arkadaşlar,

Sayfa Korumalı iken, örneğin, A1 Hücresindeki Formulü yada Formüllü Sonucu Kopyalayarak, A2 den A10'a kadar olan Hücrelere Taşımak için bir Makroya ihtiyacım var, yardımlarınız lütfen.

 

[ÖmerBey]

Deneyiniz.

Sub Kod()
ActiveSheet.Unprotect "şifre"
Range("A2:A10") = Range("A1")
ActiveSheet.Protect "şifre"
End Sub

 

[ERMAN SAYINALP]

Üstadım,

Bu Makro, üstteki hücrenin değerini alttaki hücrelere taşıyor, ancak benim istediğimse üsteki fomulün aşağılara taşınması idi, zahmetlerinize teşekkürler..

 

[ÖmerBey]

Formülünüzün görecelilik durumuna göre aşağıdaki kodları deneyiniz.

Sub Kod()
ActiveSheet.Unprotect "şifre"
Range("A1:A10").Formula = Range("A1").Formula
ActiveSheet.Protect "şifre"
End Sub

Sub Kod()
ActiveSheet.Unprotect "şifre"
For Each hcr In Range("A2:A10")
    hcr.Formula = Range("A1").Formula
Next
ActiveSheet.Protect "şifre"
End Sub