Korumalı hücreyi çoğaltma

[Fatih32]

Merhabalar. Excelde korumalı hücreler altına yeni bi satır eklediğimde eklenen hücreye üstteki hücrenin formül verilerini kopyalayamıyorum. Çözümü nedir acaba ?

 

[muhasebeciyiz]

Eğer korunan hücreler "Formülleri Kilitle" veya "Gizli" koruma seviyesine sahipse, formülleri kopyalayamazsınız. Bu durumda, koruma seviyesini "Korumalı"ya düşürmeniz veya hücreleri kilitlemeyi kaldırmanız gerekir.

1. Formülleri Manuel Olarak Kopyalama: Eklediğiniz satırların altındaki korumalı hücrelerin formüllerini elle kopyalayabilirsiniz. Bu yöntem zaman alıcı olabilir, ancak küçük çaplı değişiklikler için etkili olabilir.
2. Formülleri Dinamikleştirme: Formülleri, eklenen satırların konumunu otomatik olarak algılayacak şekilde ayarlayabilirsiniz. Örneğin, formülün içindeki referansları hücre numaraları yerine adlandırılmış aralıklarla değiştirebilirsiniz. Bu şekilde, eklenen satırlar formüller üzerinde etkili olmayacaktır.
3. Forumdaki üstadlarımız makro ile bu işe çözüm getirebilirler
4. Umarım bu bilgiler size yaralı olmuştur.

 

[Fatih32]

Eğer korunan hücreler "Formülleri Kilitle" veya "Gizli" koruma seviyesine sahipse, formülleri kopyalayamazsınız. Bu durumda, koruma seviyesini "Korumalı"ya düşürmeniz veya hücreleri kilitlemeyi kaldırmanız gerekir.

Formülü kopyalamak için excelin Formül Otomatik Doldurma" seçeneğini de kullanabilirsiniz.

Umarım bu bilgiler size yaralı olmuştur.

Teşekkürler verdiğiniz cevap için.ama galiba sorumu ben tam olarak anlatamadım. Biraz daha açıyim isterseniz. Bazı sütunlara formül uygulayarak sayfa koruması altına aldım. Koruma altına aldığım satırlar arasına herhangi bir satır eklediğimde ise o eklenen satıra üstteki korumalı hücrelerin değerlerini (formüllerini) kopyalayamıyorum.
Umarım anlatabilmişimdir

 

[Muzaffer Ali]

Merhaba.

Korumalı olduğu için kopyalayamıyorsunuz.
Başka bir açıklaması yok bunun.

 

[Fatih32]

Merhaba.

Korumalı olduğu için kopyalayamıyorsunuz.
Başka bir açıklaması yok bunun.

Bi çözümü yok mu yani

 

[Muzaffer Ali]

Korumalı hücrede değişiklik yapamazsınız, korumayı kaldırıp değiştirin tekrar koruma yapın.

 

[Fatih32]

Korumalı hücrede değişiklik yapamazsınız, korumayı kaldırıp değiştirin tekrar koruma yapın.

Başka kişilerin kullanımına açacağımız için korumayı kaldırmamamız gerekiyor. Diğer kullanıcılar satır ekleyip üstteki hücrelerin verisini kopyalayabilmesi gerekiyor.

 

[Muzaffer Ali]

Şöyle bir çözüm işinizi görür mü?

Bir buton konulur yada kısayol tuşu atanır.
Butona bastığınızda, Kod ile koruma kaldırılır, bir hücre eklenip üstteki formül kopyalanır ve yeniden koruma yapılır.
(Bu işlem sadece birkaç milisaniyede gerçekleşir.)

Eğer bu yöntem işinizi görürse hangi hücre aralığında, sütunda yada satırda çalışmasını istiyorsanız belirtiniz.

 

[Fatih32]

Şöyle bir çözüm işinizi görür mü?

Bir buton konulur yada kısayol tuşu atanır.
Butona bastığınızda, Kod ile koruma kaldırılır, bir hücre eklenip üstteki formül kopyalanır ve yeniden koruma yapılır.
(Bu işlem sadece birkaç milisaniyede gerçekleşir.)

Eğer bu yöntem işinizi görürse hangi hücre aralığında, sütunda yada satırda çalışmasını istiyorsanız belirtiniz.

Evet olabilir dediğiniz gibi.
N19:N48 sütunu
R19:R48 sütunu
S19:S48 sütunu
T19:T48 sütunu
U19:U48 sütunu

 

[Muzaffer Ali]

Aşağıdaki kodu bir modüle kopyalayın. (Sayfanın kod kısmına değil Modül'e kopyalayın)

Excel geliştirici sekmesinde Makrolar tıklatın.
Açılan penceredeki listede "SatirEkle" makrosunu seçin, seçenekleri tıklatın bir kısayol tuşu ekleyin.
Tamamı tıklatın, İptali tıklatın.

Kısayol tuşlarına bastığınızda seçili hücrenin bir altına yeni hücreler ekleyip üstteki formülü kopyalar.
Kodda bulunan iki tane "şifre" yerine kendi şifrenizi yazın.
"SayfanızınAdı" yerine bu kısayolun(kodların) hangi sayfada çalışmasını istiyorsanız o sayfanın adını yazın.

Sub SatirEkle()
    If ActiveSheet.Name = "SayfanızınAdı" Then
        ActiveSheet.Unprotect "şifre"
        With Range("N" & ActiveCell.Row)
            .Offset(1, 0).Insert shift:=xlDown, copyorigin:=.Copy()
        End With
        With Range("R" & ActiveCell.Row & ":U" & ActiveCell.Row)
            .Offset(1, 0).Insert shift:=xlDown, copyorigin:=.Copy()
        End With
        ActiveSheet.Protect "şifre"
    End If
End Sub

 

[Fatih32]

Aşağıdaki kodu bir modüle kopyalayın. (Sayfanın kod kısmına değil Modül'e kopyalayın)

Excel geliştirici sekmesinde Makrolar tıklatın.
Açılan penceredeki listede "SatirEkle" makrosunu seçin, seçenekleri tıklatın bir kısayol tuşu ekleyin.
Tamamı tıklatın, İptali tıklatın.

Kısayol tuşlarına bastığınızda seçili hücrenin bir altına yeni hücreler ekleyip üstteki formülü kopyalar.
Kodda bulunan iki tane "şifre" yerine kendi şifrenizi yazın.
"SayfanızınAdı" yerine bu kısayolun(kodların) hangi sayfada çalışmasını istiyorsanız o sayfanın adını yazın.

Sub SatirEkle()
    If ActiveSheet.Name = "SayfanızınAdı" Then
        ActiveSheet.Unprotect "şifre"
        With Range("N" & ActiveCell.Row)
            .Offset(1, 0).Insert shift:=xlDown
            .Resize(2).FillDown
        End With
        With Range("R" & ActiveCell.Row & ":U" & ActiveCell.Row)
            .Offset(1, 0).Insert shift:=xlDown
            .Resize(2).FillDown
        End With
        ActiveSheet.Protect "şifre"
    End If
End Sub

Dediklerinizi yaptım ama yazdığınız parola doğru değil diye uyarı veriyor. Ve moduldeki activesheet kısmını sarıya boyuyor.

 

[Muzaffer Ali]

"şifre" yazan yere kendi şifrenizi yazdınız mı, doğru yazdığınızdan emin olun.
iki tane şifre var.

 

[Fatih32]

"şifre" yazan yere kendi şifrenizi yazdınız mı, doğru yazdığınızdan emin olun.
iki tane şifre var.

Evet şifreyi düzelttikten sonra oldu ama alta satır ekleyip dediğim işlemleri yapmadı.

 

[Muzaffer Ali]

10. mesajda azdıklarımı lütfen iyi okuyunuz.
Aktif(seçili) hücrenin bir altına yeni hücre ekliyor.
Ama siz yine de 10. mesajda yazdıklarımı iyice anlayarak okuyunuz