Hücredeki değere göre satırları gizleme hk.

[Kumpasta]

Selamlar
AU satırındaki hücrelerde sadece 1 ve 0 oluyor. başka sayfalardan gelen bilgilere göre değişiyor.
Bu buruma göre AU sütunundaki hücre değeri 1 olunca satırı otomatik gizlemesi için yardımcı olabilir misiniz?

Kitap1333333333333333333.xlsx dosyasını indir - download

Kitap1333333333333333333.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s5.dosya.tc

çook teşekkürler.

 

[Orion1]

Otomatik filtreyi bir denemenizi öneririm.

 

[Kumpasta]

formüllü hücreler arasında boşlullar var da o yüzden filtreyi kullanamadım

 

[Korhan Ayhan]

Sayfanızın kod bölümüne uygulayıp deneyiniz.

Sayfanız hesaplama yaptığında kod devreye girecektir.

Option Explicit

Private Sub Worksheet_Calculate()
    Dim Veri As Range, Alan As Range
    
    On Error GoTo Son
    
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    For Each Veri In Range("AU:AU").SpecialCells(xlCellTypeFormulas, 1).Cells
        If Veri.Value = 1 Then
            If Alan Is Nothing Then
                Set Alan = Veri
            Else
                Set Alan = Union(Alan, Veri)
            End If
        End If
    Next
    
    Cells.EntireRow.Hidden = False
    If Not Alan Is Nothing Then Alan.EntireRow.Hidden = True

    Set Alan = Nothing
Son:
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

 

[Kumpasta]

Teşekkür ederim güzel çalıştı.
Makronun bir kötü yanı tüm sayfalardaki değişiklikleri geri almayı engelliyor. Bunu hep unutuyorum sizlerden yardım istiyorum bir hevesle ama sonra heves kursağımda kalıyor ))))))

 

[Korhan Ayhan]

Bu durumda makronun anlık çalışması yerine aşağıdaki alternatifleri düşünebilirsiniz.

Bir butona tanımlayıp dilediğiniz zaman çalıştırırsınız. Böylece çalışma esnasında geri al özelliğini kullanabilirsiniz. Sonuçları görmek istediğinizde butona tıklarsınız.
Dosyayı kaydettiğinizde bu makro otomatik çalışabilir.
Dosyayı kapatırken bu makro otomatik çalışabilir.
Dosyayı açtığınızda ya da dosya aktif olduğunda bu makro otomatik çalışabilir.
Sayfa aktif olduğunda bu makro çalışabilir.