Bütün Filtreleri Temizleme

[TheFahrix]

Selamlar. Üretimdeki ürünlerimizi adım adım izlediğimiz bir tablom var. Ürünler farklı kategorilerde çok çeşitlilik içermekte. Bazı ürünlere ulaşmak için çok sayıda filtre uygulamak durumunda kalıyorum. Tekrar tam listeye dönmek için de tek tek filtreleri kaldırmak zor oluyor ve gözden kaçan başlıklar olabiliyor.

Özetle, tablodaki tüm filtreleri kaldıracak tek bir buton yapmam gerek. Sanırım makro kodlar ile mümkün olur ancak benim pek bilgim yok. Forumu da araştırdım ancak bulamadım. Bana bu konuda yardımcı olabilirseniz çok mutlu sevinirim...

Şimdiden Teşekkürler...

 

[Emir Hüseyin Çoban]

Merhaba, aşağıdaki kodları deneyiniz.

filtreyi tamamen kaldırmak için;

Sub suz_iptal()
    Selection.AutoFilter
End Sub

filtre seçeneklerini temizlemek için;

Sub süz_temizle()
    ActiveSheet.ShowAllData
End Sub

 

[hamitcan]

ActiveSheet.ShowAllData

 

[serqet]

bir butona ekleyip denermisiniz?

Sub Filtrekapa()
Worksheets("sayfa1").AutoFilterMode = False
End Sub

 

[serqet]

veya;

Sub Filtrekapa()
ActiveSheet.AutoFilterMode = False
End Sub

 

[turkkeyp]

Sanırım 2007 kullanıyorsunuz.
Herhangi bir sütun başlığına geleren Ctrl+Shift+L yaparak bütün filtreleri kaldırabilirsiniz. Tekrardan aynı tuş kombinasyonu ile filtreleri aktif hale getirebilirsiniz.
Kolya gelsin.

 

[TheFahrix]

Arkadaşlar denemelerim ve uğraşlarım acemiliğimden dolayı uzun sürüyor. Hepinize yardımlarınız için çok teşekkür ederim, yalnız hala yapamadım.

@seqet
Bu kodlara bağlı bir buton yaptım ancak herhangi bir hareket olmadı.

@hamitcan & @huseyincoban
"ActiveSheet.ShowAllData" içeren kodu yazıp butona tıkladıktan sonra bir hata mesajı alıyorum. Ekte görebilirsiniz.

@turkkeyp
Teşekkürler bu yöntemle başarılı oldum ancak bir buton yapabilmeye çalışmaya devam etmem gerek. Daha pratik olacaktır.

 

[hamitcan]

Hatanın sebebi filtrenin olmaması. Filreli durumdayken çalıştırmayı deneyin.

 

[TheFahrix]

@hamitcan
Filtrele olmaması değil de, sanırım tabloyu hedef olarak göstermemek gibi bir sorun vardı.

Biraz yamalı bi düzen oldu ama çözdüm. Makro önce tablodan bir hücreyi seçip sonra iki kere üst üste iki kere aynı işlemi yapıyor. (Yaptığı işlemin kısayolu: CTRL+Shift+L) Böylece ilkinde filtreler kapanıyor daha sonra tekrar sıfırlanmış şekilde açılıyor. Seçili hücre olarakta butonun bulunduğu hücreyi ayarladım temiz oldu.

Sub temizle()
    Range("Tablo3[[#Headers],[Durum]]").Select
    Selection.AutoFilter
    Selection.AutoFilter
End Sub

Yardımcı olan herkese teşekkürler...