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

[teyadih]

Merhaba arkadaşlar. Daha önce sayın EmrExcel16 tarafından güncellenen A12 ile A613 arasındaki satırlarda 1 den küçük olan satırları gizleyen ve herhangi bir işlem için sayfa korumasını kaldırıp sayfa değiştirdiğimde ise otomatik olarak sayfa koruması yapan makroyu kullanıyorum.

Yeni yapacağım tabloda sıra numarası bulunmadığından, söz konusu makroyu A12 ile A613 arasındaki satırlarda 1 den küçük olan satırları gizleyen değil de, L1 deki rakamın bulunduğu satır ile 613.satır arasını gizleyen ve herhangi bir işlem için sayfa korumasını kaldırıp sayfa değiştirdiğimde ise otomatik olarak sayfa koruması yapacak şekilde güncelleyebilir miyiz? Sayfa koruma şifresi 123 Teşekkür ederim.

 

[Korhan Ayhan]

Deneyiniz.

Private Sub Worksheet_Activate()
    Unprotect Password:="123"
    If Range("L1") > 11 Then
        Application.ScreenUpdating = False
        Rows("12:612").Hidden = False
        Rows(Range("L1") & ":612").Hidden = True
        Application.ScreenUpdating = True
    End If
    Protect Password:="123"
End Sub

 

[teyadih]

Teşekkür ederim Korhan bey kod tamam elinize sağlık.

 

[teyadih]

Deneyiniz.

Private Sub Worksheet_Activate()
Unprotect Password:="123"
If Range("L1") > 11 Then
Application.ScreenUpdating = False
Rows("12:612").Hidden = False
Rows(Range("L1") & ":612").Hidden = True
Application.ScreenUpdating = True
End If
Protect Password:="123"
End Sub

Merhaba arkadaşlar. Sayın Korhan bey tarafından güncellenen L1 deki rakamın bulunduğu satır ile 613.satır arasını gizleyen ve herhangi bir işlem için sayfa korumasını kaldırıp sayfa değiştirdiğimde ise otomatik olarak sayfa koruması yapan makroyu kullanıyorum.

Söz konusu makroyu L1 deki rakamın bulunduğu satır ile M1 deki rakamın bulunduğu satır arasını gizleyen ve herhangi bir işlem için sayfa korumasını kaldırıp sayfa değiştirdiğimde ise otomatik olarak sayfa koruması yapacak şekilde güncelleyebilir miyiz? Sayfa koruma şifresi 123 Teşekkür ederim.

 

[AdemCan]

Merhaba
Rows(Range("L1") & ":612").Hidden = True satırını değiştiriniz. Rows(Range("L1") & ":" & Range("M1")).Hidden = True

 

[teyadih]

Olmadı maalesef sayın AdemCan.
Rows(Range("L1") & ":612").Hidden = True satırının üstündeki Rows("12:612").Hidden = False satırda da 612 yazıyor sanırım onunla alakalı olabilir

 

[AdemCan]

Rows("12:612").Hidden = False satırını da değiştiriniz
Rows("12:" & Range("M1")).Hidden = False

 

[teyadih]

Tamamdır sayın AdemCan teşekkür ederim elinize sağlık.

 

[AdemCan]

Rica ederim.

 

[teyadih]

Sayın AdemCan izninizle bir makroda daha güncelleme isteyebilir miyim?

 

[AdemCan]

Konu aynı ise buradan, konu farklı ise yeni konu açarak sorularınızı istediğiniz gibi sorabilirsiniz.

 

[teyadih]

Ekli dosyada A12 ile A613 arasındaki satırlarda 1 den küçük olan satırları gizleyen ve herhangi bir işlem için sayfa korumasını kaldırıp sayfa değiştirdiğimde ise otomatik olarak sayfa koruması yapan makroyu kullanıyorum.
Ekli dosyada da görüldüğü üzere A sütununda en son dolu satır ile 613 arasındaki birden küçük olanı satırları gizliyorken, aralardaki birden küçük olan satırları gizlemiyor. Siz konusu makroyu aradaki satırlar dahil A12 ile A613 satırları arasında birden küçük olanları gizleyecek şekilde güncelleyebilir miyiz?

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

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

 

[teyadih]

Merhaba sayın Korhan. Sayfa ismine sağ tıklayıp sayfaya eklediğimde de çalışmadı, modül1 e eklediğimde de çalışmadı maalesef. Nerde eksiklik yaptım acaba

 

[Korhan Ayhan]

Önerdiğim kod boş bir modüle ekleyiniz.

Sonra kendi kullandığınız kod bloğunun ilk ve son satırı duracak şekilde aradaki satırları siliniz.

Sonra sildiğiniz satırlar yerine aşağıdaki satırı yazınız. Sanırım uygulayabilirsiniz.

Call Hidden_Empty_Rows

 

[teyadih]

Maalesef makro bilgim pek olmadığı için nasıl yapılacağını anlayamadım sayın Korhan. Size zahmet örnek dosyaya uygulayabilir misiniz?

 

[Korhan Ayhan]

O zaman önceki yazdıklarımı unutun.

Kendi kullandığınız kodu silip aşağıdaki kodu uygulayıp deneyiniz.

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

 

[teyadih]

Sayın Korhan kusura bakmayın sizi de yoruyorum ama Sayfa ismine sağ tıklayıp sayfaya eklediğimde de çalışmadı, modül1 e eklediğimde de çalıştıramadım maalesef

 

[Korhan Ayhan]

@teyadih,

Kodu son mesajımda tarif ettiğim gibi uyguladıktan sonra diğer sayfalardan birisini tıklayın ve sonra "Sözlü" sayfasını açın. Kod bu durumda yani sayfanın aktif olma durumunda sonuç verecektir. Zaten daha önceki kod da aynı şekilde çalışıyordu.

 

[teyadih]

Sonunda başarabildim sayın Korhan teşekkür ederim ilginize.