::.. Tüm Sayfalarda FİLTRE'yi KALDIRIP TEKRAR UYGULAMA ..::

[Ömer BARAN]

Herkese Merhabalar !...

Excel belgemdeki sayfaların bir kısmında otomatik SÜZ mevcut.
Belgemde birden fazla sayfada işlem yaparak çalışan MAKRO KODLARIN;
mevcut filtrelerin aktif olduğu (süz ile alan daraltılmış olan) sayfalardaki
işlemlerinde sorun yaşanıyor.

Tüm sayfalardaki mevcut SÜZ'leri topluca "Tümünü SEÇ" haline
getirmek için nasıl bir kod kullanmak gerekir.

Bunun için yazılacak kodu, mevcut kodlarımın başına ekleyip,
mevcut kodların SÜZ işlemlerinden etkilenmesini engellemek istiyorum.

İlgileneceklere teşekkürler.

 

[Trilenium]

aşagıdaki kod mevcut filtreleri otomatik koyar ve kaldırır..

Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets
ws.Activate
Range("A1").Activate
Selection.AutoFilter
Next ws
Application.ScreenUpdating = True

 

[Ömer BARAN]

aşagıdaki kod mevcut filtreleri otomatik koyar ve kaldırır..

Sayın Trilenium, yazdığınız kod; benim acemice tek tek sayfalar için yaptığım:
"sayfayı aktive et-> otomatik süz ekle / kaldır" şeklindeki işlemin kısa yolu olmuş.
Belgemde süz işlemi tüm sayfalar için 1. satırda değil maalesef.

Ancak benim ricam süz ekle/kaldır değildi.
Demek ki yanlış ifade etmişim.
Daha doğrusu konu başlığı içeriğe uygun olmamış.
Yazdığınız kod, konu başlığım esas alınarak yazılmış bir kod.

Teşekkürler ancak; benim ricam süz'leri tamamen kaldırıp / eklemek yerine kullanılmış süz'leri "Tümünü Seç" haline getirmek.
Bundan sonra süz'leri eski haline (süz kullanılarak liste daraltılmış) getirmem gerekmiyor.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

Sub Filtre_Tumunu_Goster()
    Dim Sayfa As Worksheet
    
    Application.ScreenUpdating = False
    
    For Each Sayfa In ThisWorkbook.Worksheets
        If Sayfa.AutoFilterMode Then
            On Error Resume Next
            Sayfa.ShowAllData
            On Error GoTo 0
        End If
    Next
    
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır."
End Sub

 

[Ömer BARAN]

::.. Teşekkürler ..::

Merhaba,
Aşağıdaki kodu deneyiniz.

Sayın AYHAN çok teşekkür ediyorum.
Konu çözülerek kapatılmıştır.
İyi çalışmalar dilerim.