Tüm süzgeçleri kaldırma

[Zahir]

Merhaba,
Bir excel sayfasındaki tüm süzme işlemlerini kaldıracak bir makro gerekiyor
ve bunu bir düğmeye atamak istiyorum. Nasıl yapabilirim yardımcı olursanız sevinirim.

 

[Levent Menteşoğlu]

Filtreyi iptal edip tüm verileri göstermek için aşağıdaki kodu kullanın.

ActiveSheet.ShowAllData

Eğer filtreleme işlemini sayfadan tamamen kaldırmak istiyorsanız aşağıdaki kodu kullanabilirsiniz.

Rows(1).AutoFilter

 

[Rafet]

On Error GoTo hata
ActiveSheet.ShowAllData
hata:


Eğer tüm süzmeleri kaldırınca tekrar aynı butono tıklatırsan hata veriri vermemesi için yukardaki gibi de kullana bilirsin. Şimdi. Değilsede başka zaman başına gelebilecektir.

 

[baydeniro]

Ben bu kodları hem Sheet1 e hem de This workbook'a yapıştırdım, makrolar arasında çıkmadı. Neyi yanlış yapmış olabilirim ?

 

[86126]

bu işini görür zannedersem. bastığında kapatır bastığında açar.

Sub Süzme()
      Selection.AutoFilter
End Sub

 

[Necdet]

Insert-- Module
ile yeni module açın ve oraya yapıştırın bu kodları

 

[baydeniro]

Herkese çok teşekkürler.