DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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.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.
Bi çözümü yok mu yaniMerhaba.
Korumalı olduğu için kopyalayamıyorsunuz.
Başka bir açıklaması yok bunun.
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.Korumalı hücrede değişiklik yapamazsınız, korumayı kaldırıp değiştirin tekrar koruma yapın.
Evet olabilir dediğiniz gibi.Şö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.
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
Dediklerinizi yaptım ama yazdığınız parola doğru değil diye uyarı veriyor. Ve moduldeki activesheet kısmını sarıya boyuyor.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.
Kod: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
Evet şifreyi düzelttikten sonra oldu ama alta satır ekleyip dediğim işlemleri yapmadı."şifre" yazan yere kendi şifrenizi yazdınız mı, doğru yazdığınızdan emin olun.
iki tane şifre var.