Otomatik Satır gizleme makrosuna bu özelliği ekleyebilir miyiz acaba?

[akmlyx]

B5 hücresindeki sayıyı sildiğimde Sayfa1 deki 6. satır otomatik gizlendiği gibi Sayfa2, Sayfa3, Sayfa4 ve Sayfa5 deki 6. satır otomatik gizlenmeli veya Sayfa1 deki B5 hücresine herhangi bir sayı yazdığım zaman 6. satırın tamamı otomatik olarak görünür hale geldiği gibi, Sayfa2, Sayfa3, Sayfa4 ve Sayfa5 deki 6. satır otomatik olarak görünür hale gelmeli bu işlem aynı şekilde 35. satıra kadar devam etmesi gerekiyor.
İlginiz için Teşekkür ederim.

 

[Muzaffer Ali]

Hangi sayfalarda işlem yapılmasını istiyorsanız aşağıdaki gibi sayfa isimlerini yazarak yapabilirsiniz

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B5:B35")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
    If Target = "" Then
        Rows(Target.Row + 1).EntireRow.Hidden = True
        Worksheets("Sayfa2").Rows(Target.Row + 1).EntireRow.Hidden = True
        Worksheets("Sayfa3").Rows(Target.Row + 1).EntireRow.Hidden = True
    
    Else
        Rows(Target.Row + 1).EntireRow.Hidden = False
        Worksheets("Sayfa2").Rows(Target.Row + 1).EntireRow.Hidden = False
        Worksheets("Sayfa3").Rows(Target.Row + 1).EntireRow.Hidden = False
    
    End If
End Sub

ilk satırda sayfa ismi yazmıyor çünkü aktif olan sayfada sayfa ismi belirtmeye gerek yok

 

[akmlyx]

Ellerine sağlık çok güzel olmuş ama!

Gerçekten ellerine sağlık çok güzel olmuş, çok TEŞEKKÜR EDERİM. Ama bir husus var. B5 hücresine sayı yazıp enter'e bastığım zaman 6. satır otomatik açılıyor ama aktif olan hücre 37. satıra geçiyor. Yani demek istediğim yeni satır açıldığında aktif hücre(içine yazı yazılacak hücre) yeni açılan satıra geçsin bu mümkün mü acaba! Şimdiden TEŞEKKÜR EDERİM.

 

[Muzaffer Ali]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B5:B35")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub

    If Target = "" Then
        Rows(Target.Row + 1).EntireRow.Hidden = True
        Worksheets("Sayfa2").Rows(Target.Row + 1).EntireRow.Hidden = True
        Worksheets("Sayfa3").Rows(Target.Row + 1).EntireRow.Hidden = True
    
    Else
        Rows(Target.Row + 1).EntireRow.Hidden = False
        Worksheets("Sayfa2").Rows(Target.Row + 1).EntireRow.Hidden = False
        Worksheets("Sayfa3").Rows(Target.Row + 1).EntireRow.Hidden = False
    
    End If
    Target.Offset(1, 0).Select
End Sub

 

[akmlyx]

Tamam, tam istediğim gibi olmuş TEŞEKKÜR EDERİM.

 

[44KAYHAN44]

formülle 0 olan hücre satırının gizlenmesini istiyorum, yardımcı olursanız sevinirim

 

[YUSUF44]

Formülle satır gizleme nasıl olur bilmiyorum. Daha açık bir örnek verir misiniz?