En Son Dolu Satırdan Sonraki Boş Satırları Gizleme

[teyadih]

Sayın Korhan sizi de çok yordum hakkınızı helal edin. Boş olan satırları gizledi ancak bu seferde gizlenen satır dolduğunda gizlenen satırı açmıyor maalesef. Ekli dosyada 14.satırda 3 numaralı kayıt var ama halen gizli
Önceki formül öyle olduğu için yazmamıştım sayın Korhan kusura bakmayın. A sütunun boş olanları gizleyecek, dolu olanları ise açacak şekilde olması gerekiyor

 

[Korhan Ayhan]

Böyle deneyiniz.

Private Sub Worksheet_Activate()
    Application.ScreenUpdating = False
    With Sheets("Sözlü")
        .Unprotect Password:="123"
        .Range("A12:A613").EntireRow.Hidden = False
        .Range("A12:A613").SpecialCells(xlCellTypeFormulas, 2).EntireRow.Hidden = True
        .Protect Password:="123"
    End With
    Application.ScreenUpdating = True
End Sub

 

[teyadih]

Bu sefer tamam sayın Korhan. Teşekkür ederim elinize sağlık.
Çok küçük bir ayrıntı atlanmış. Gönderdiğim makroda açılışta ve sayfa değiştiğinde boş olanları gizliyordu.
Son makroda ise açıldığında boş satırlar açık geliyor sadece başka sayfaya gidip geldiğimde gizliyor.
Sizi de çok yordum ama zahmet olmazsa son kez açılışta ve sayfa değiştiğinde de boş olanları gizleyecek şekilde güncelleyebilir misiniz?

 

[teyadih]

Yeni bir ekleme yaptım listeye sayın Korhan açılışta ekleme yaptığımı vermedi ancak başka sayfaya gidip geldiğimde verdi yeni eklediğimi. Bu şekilde atlama yapılabileceğinden size zahmet son kez açılışta ve sayfa değiştiğinde de boş olanları gizleyecek şekilde güncelleyebilir misiniz?

Çok küçük bir ayrıntı atlanmış. Gönderdiğim makroda açılışta ve sayfa değiştiğinde boş olanları gizliyordu.
Son makroda ise açıldığında boş satırlar açık geliyor sadece başka sayfaya gidip geldiğimde gizliyor.
Sizi de çok yordum ama zahmet olmazsa son kez açılışta ve sayfa değiştiğinde de boş olanları gizleyecek şekilde güncelleyebilir misiniz?

 

[Korhan Ayhan]

Bu ayrıntıyı atladığımızı düşünmüyorum. Çünkü paylaştığınız dosyalarda dosya açılışında çalışan bir kod bloğu göremiyorum.

Bu uygulamayı sizde rahatlıkla yapabilirsiniz. Bence kendinize güvenmelisiniz.

ALT+F11 tuşlarına basarak kod editörünü açınız.
Sol tarafta ThisWorkbook (BuÇalışmaKitabı) bölümünü göreceksiniz.
Oraya çift tıklayınız.
Sağ tarafa beyaz bir pencere açılacaktır.
O pencerenin üstünde ComboBox şeklinde açılır kutucuklar bulunmaktadır.
Soldaki kutudan (parantez içinde General yazan) WorkBook seçeneğini seçiniz.
Son mesajımdaki kodun ilk başlık satırı ve son bitiş satırı hariç aradaki satırları kopyalayarak son açtığınız kod bloğu içine yapıştırın.

Dosyanızı kaydedip kapatıp açarsanız artık kod açılıştada çalışacaktır.

 

[teyadih]

Hallettik sayın Korhan her şey için teşekkür ederim