Soru Hücre Değerine Göre Otomatik Satır Gizleme

[sametguler]

Eğer A2 - A221 arası A hücresi boş ise o satır gizlenecek.
Eğer A2 - A2 - A221 arası Hücreler dolarsa Satır aktif olması gerekiyor.
Fakat kodlar butona bağlı olmayacak. Herhangi bir değişiklikte hemen işlem yapması lazım.

Şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Sayfada hangi sütunlarda değişiklik yapacaksınız?

 

[sametguler]

Ekte sunulan örnekte Sayfa 1 de otomatik sıra numarası veriyor.
Sayfa 2 ise;
Sayfa 1 deki tüm verileri koşulsuz Sayfa 2 ye aktarıyor.
Amaç Sayfa 2 de Sayfa Numarası olmayan satırları gizlemek. Fakat sayfa 2 de Sıra No alanında formüller var. Sayfa 1 den çekiyor.
Fakat sayfa 1 de sayfa numarası olmayan, sonradan numara alırsa, Sayfa 2 de gizlenmiş olan satır aktif olması gerekiyor.

 

[Korhan Ayhan]

Deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo 10
    Application.EnableEvents = False
    Range("A2:A201").ClearContents
    Sheets("Sayfa2").Range("A2:A201").EntireRow.Hidden = False
    No = 1
    Select Case Target.Column
        Case 1 To 3
        For X = 2 To 201
            If Cells(X, 2) <> "" And Cells(X, 3) <> "" Then
                Cells(X, 1) = No
                No = No + 1
            End If
        Next
    End Select
    
    For Each Veri In Range("A2:A201")
        If Veri.Value = "" Then
            Sheets("Sayfa2").Rows(Veri.Row).Hidden = True
        End If
    Next
    
10  Application.EnableEvents = True
End Sub

 

[sametguler]

Korhan Ayhan hocam elinize sağlık çok güzel oldu.
Satır gizleme ve gösterme işlemini sadece 2. sayfaya uyarlasak.
1. sayfada sadece Sıra No verme kodları dursun. Çünkü çalışmamda başka değişiklikler de olursa, ilerde sıkıntı yaratabilir.

 

[Korhan Ayhan]

Kaynak Sayfa1 olduğu için kodların orada olması daha uygun olur.