sayfa korumalı kilitli hücreleri bozmadan

[tazmania]

sayfa korumalı, kilitli hücreleri bozmadan, belli aralıklardaki a10:a56 hücrelerindeki boş hücreleri gizlemek ve çıktı alabilmek imkanı varmıdır?

örnek verecek olusam tam sayfalık formüllü belgede tarih yazılmamış hücreleri gizleyerek çıktı almak istiyorum.fakat sayfa koruması silinmeden rica edeceğim. bir türlü vba yazamadım.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub YAZDIR()
    ActiveSheet.Unprotect
    Range("A11:A56").EntireRow.Hidden = False
    For Each Hücre In Range("A11:A56")
    If Hücre.Value = "" Then
    Hücre.EntireRow.Hidden = True
    End If
    Next
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    ActiveSheet.Protect
End Sub

 

[tazmania]

malesef istediğim olmadı

 

[Korhan Ayhan]

Selamlar,

Olmayan nedir açıklar mısınız?

 

[tazmania]

Selamlar,

Olmayan nedir açıklar mısınız?

sayın korhan bey

ekli listede en son şeklini koydum. sıkıntım şudur tüm makrolamaları yapıyor ama formülleri gizlemek ve silinmesini önlemek amaçlı sayfayı korumak istediğimde bu gizle ve göster butonları çalışmamaktadır. sayfa koruma hatası vermektedir.

resim birdeki gibi sayfam kilitli (şifrede yok direk enter ile kilit yaptım) ikinci resimdeki gibi sayfa kitli oluşunda ötürü işlemimi yapmıyor ama alttaki diğer makrolar yani kilidiaçgizle ve kilidiaçgöster ile ilk önce sayfa kilidini açıyor ve işlemimi yapıyor. tekrarında şifre koymak istesemde excel buna imkan tanımıyor.

 

[Korhan Ayhan]

Selamlar,

Ekte dosyanız üzerinde gerekli düzenlemeleri yaptım. İncelermisiniz.

 

[tazmania]

malesef bu şekildede olmadı. nedeni tüm hücreler kitlenmiş hiç bir veri girişi kaydedemiyoruz. amacım veri girişi yapılacak, formüller silinemeyecek, gizle göster butonları ile gereksiz boş satırlar gizlenecek,yazıcıdan çıktı alındığında yazılı olan hücreleri dökecek.

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki dosyayı güncelledim. İncelermisiniz.

 

[tazmania]

harika oldu. 59 satır ve sonrasındakileride gizliyebilirmiyiz

 

[tazmania]

Sub Temizle()
Range("B1,E1,G1,B11:G56,J11:J56").Select
Selection.ClearContents
Range("B1").Select
End Sub


komutu çalışmaktadır.

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki dosyayı tekrar güncelledim. İncelermisiniz. Silme kodundaki hata birleştirilmiş hücrelerden kaynaklanıyor. O koddaki hatada giderilmiştir.

 

[tazmania]

sayın korhan bey
ellerinize kollarınıza sağlık. gerçekten çok hoş oldu. çok minnettarım sizlere ve excel.web.tr ailesine.