İki farklı sütunu dikkate alarak boş satırları gizleme

[teyadih]

Merhaba arkadaşlar. Ekli dosyada açıkladığım üzere A sütununda boş olan satırları gizleyen ve sayfa koruması yapan makroyu A ve AD sütunlarını dikkate almak suretiyle gizleyecek ve sayfa koruması yapacak şekilde güncellenecek bir makroya ihtiyacım var. Yardım eder misiniz?

 

[Muzaffer Ali]

Merhaba.

Sub test()
    Dim Bak As Long
    Unprotect "123"
    Cells.Rows.Hidden = False
    For Bak = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(Bak, "A") = "" And Cells(Bak, "AD") = "" And Cells(Bak, "O") = "" Then
            Rows(Bak).Hidden = True
        End If
    Next
    Protect "123"
End Sub

 

[teyadih]

Elinize sağlık Muzaffer Ali bey. Uyguladım ama başka sayfaya gidip geldiğimde çalışmadı. Nerde hata yaptım acaba?

 

[Muzaffer Ali]

Kodlarda bir sorun yok. Başka bir sayfayı açmanız yada kapatmanızın hiçbir etkisi yok.
Eklediğiniz dosyada kodları doğru yere kopyalamışsınız. Sorunsuz çalışıyor.

 

[teyadih]

Sizde çalıştı mı? Muzaffer Ali bey. Fotoğrafta görüldüğü üzere A ve AD sütunları boş olan 8-9-10-11-24-25-26-27 yi gizlemesi gerekirken gizlemedi bende

 

[Muzaffer Ali]

Sanırım versiyon farklılığından kaynaklanıyor.
Aşağıdaki kodu deneyin.

Sub test()
    Dim Bak As Long
    Unprotect "123"
    Cells.Rows.Hidden = False
    For Bak = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(Bak, "A").text = "" And Cells(Bak, "AD").text = "" And Cells(Bak, "O").text = "" Then
            Rows(Bak).Hidden = True
        End If
    Next
    Protect "123"
End Sub

 

[teyadih]

Yine gizlemedi maalesef Muzaffer Ali bey

 

[teyadih]

İlk örnekte sadece A sütununa göre gizleyen makroyu uyguladığımda çalışıyor

 

[Muzaffer Ali]

O kodları paylaşır mısınız?

 

[teyadih]

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
With Sheets("Sayfa2")
.Unprotect Password:="123"
.Range("A2:A250").EntireRow.Hidden = False
.Range("A2:A250").SpecialCells(xlCellTypeFormulas, 2).EntireRow.Hidden = True
.Protect Password:="123"
End With
Application.ScreenUpdating = True
End Sub

 

[teyadih]

A2:A250 arasındaki boş satırları gizliyor ve sayfa koruması yapıyor Muzaffer Ali bey

 

[Muzaffer Ali]

Kodu çalıştırmadığınız için olmuyor.

Kodun otomatik çalışmasını istediğinizi söylemeniz gerekirdi.

Aşağıdaki kodu sayfanın kod kısmına kopyalayın.

Private Sub Worksheet_Activate()
    Dim Bak As Long
    Unprotect "123"
    Cells.Rows.Hidden = False
    For Bak = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(Bak, "A").Text = "" And Cells(Bak, "AD").Text = "" And Cells(Bak, "O").Text = "" Then
            Rows(Bak).Hidden = True
        End If
    Next
    Protect "123"
End Sub

 

[teyadih]

Kusura bakmayın Muzaffer Ali bey. Dosyadaki mevcut kod otomatik çalıştığı için ayrıca belirtmeyi atlamışım.

 

[teyadih]

Teşekkür ederim Elinize sağlık

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.