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

Katılım
28 Nisan 2016
Mesajlar
181
Excel Vers. ve Dili
2010
Altın Üyelik Bitiş Tarihi
06-01-2024
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?


çook teşekkürler.
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Otomatik filtreyi bir denemenizi öneririm.
 
Katılım
28 Nisan 2016
Mesajlar
181
Excel Vers. ve Dili
2010
Altın Üyelik Bitiş Tarihi
06-01-2024
formüllü hücreler arasında boşlullar var da o yüzden filtreyi kullanamadım
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Sayfanızın kod bölümüne uygulayıp deneyiniz.

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

C++:
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
 
Katılım
28 Nisan 2016
Mesajlar
181
Excel Vers. ve Dili
2010
Altın Üyelik Bitiş Tarihi
06-01-2024
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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.
 
Üst