Açılış sayfası ve aradakiler dahil boş satırları gizleme

[teyadih]

Merhaba arkadaşlar ekli örnek dosyada giriş sayfasını açılış sayfası yapan ve İmza Çizelgesi sayfası A sütununda A11 ile A100 arasında birden küçük sayı olan satırları gizleyen ve j ile k sütunları arasını temizleyen makroyu kullanıyorum.
Ancak sayfa sonundaki boş satırları gizliyor ama staj durumuna göre A sütunu boş olan 25 ile 31 arasında boş olan satırları gizlemiyor.
Size zahmet makroyu hangi sayfada kapatılırsa kapatılsın giriş sayfasını açılış sayfası yapacak ve arada da olsa A1 ile A100 arasında birden küçük olan satırları gizleyecek şekilde düzenleyebilir miyiz?
Teşekkür ederim

 

[Muzaffer Ali]

Merhaba.

İmza Çizelgesi adlı sayfadaki kodları silin aşağıdakileri kopyalayın.

Private Sub Worksheet_Activate()
    Dim Bak As Integer, son As Integer
    son = WorksheetFunction.Max([A:A]) + 11
    Application.ScreenUpdating = False
    Rows.Hidden = False
    For Bak = 9 To son
        If Cells(Bak, "A").Text = "" Then
            Rows(Bak).Hidden = True
        End If
    Next
    Application.ScreenUpdating = True
End Sub

BuÇalışmaKitabı(ThisWorkbook) adlı kod sayfasına da aşağıdaki kodları kopyalayın.

Private Sub Workbook_Open()
    Worksheets("Giriş").Activate
End Sub

 

[teyadih]

Gizleme işlemi tamam sayın Muzaffer Ali ancak açıldığında giriş sayfası gelmiyor. Pek makro bilgim yok nerde eksiklik yaptım acaba. Size zahmet örnek dosyaya işleyip gönderebilir misiniz?

 

[Muzaffer Ali]

Dosya ekte

 

[teyadih]

Elinize sağlık sayın Muzaffer Ali çok teşekkür ederim

 

[teyadih]

Sayın Muzaffer Ali var olan formüllerin bozulmaması için her 2 sayfada sayfa koru işlemi yaptığımda makro çalışmıyor ve ekteki hatayı veriyor. Bununla ilgili çözüm var mı

 

[Muzaffer Ali]

Aşağıdaki kodları kopyalayın.
Şifre kısmına kendi şifrenizi yazın.

Private Sub Worksheet_Activate()
    Dim Bak As Integer, Son As Integer
    Son = WorksheetFunction.Max([A:A]) + 11
    Application.ScreenUpdating = False
    Unprotect Password:="Şifre"
    Rows.Hidden = False
    For Bak = 9 To Son
        If Cells(Bak, "A").Text = "" Then
            Rows(Bak).Hidden = True
        End If
    Next
    Protect Password:="Şifre", AllowFormattingRows:=True
    Application.ScreenUpdating = True
End Sub

 

[teyadih]

İmza çizelgesi sayfasındaki kodla değiştirdim ama beceremedim sanırım sayın Muzaffer Ali size zahmet yine örnek dosyaya işleyip gönderebilir misiniz?

 

[Muzaffer Ali]

Dosya ekte.

 

[teyadih]

İlgi ve alakanıza çok teşekkür ederim sayın Muzaffer Ali. Hakkınızı helal edin

 

[Muzaffer Ali]

Rica ederim. Helal olsun.

 

[teyadih]

Merhaba sayın Muzaffer Ali. Başka kullandığım makrolu belgelerde de sayfa koru yaptığımda hata veriyor. Makroları tamamen değiştirmek yerine mevcut makrolara ek olarak şifre makrosu eklenebilir mi?

 

[Muzaffer Ali]

Sayfada bir değişiklik yapan kodların başında koruma kaldırılmalı, kodlar bittiğinde yeniden koruma yapılmalı.
Başka çaresi yok.

 

[teyadih]

Teşekkür ederim. İyi günler