Dosya Kapanışında Tüm Veri Süzmeleri İptali

[umitking]

Merhaba,
Bir excel dosyasında En baştan 100 sütünda otomatikfilitre etkin. Böyle oluncada sayfayı açtığımızda bir önceki kullanımdan kaynaklanan bir veya birden fazla filitre (veri süzme) etkin olabiliyor ve yeni bir veri süzme için öncelikle bu veri süzleri bulup hepsini göster dememiz gerekiyor. Ama bazen can sıkıcı ve zaman alabiliyor. Dosya kapanırken veya açılırken aktif olan tüm veri süzlerin iptalini nasıl bir makro ile ağlayabiliriz.

Asagidaki gibi makro kullanıdığımda bu kodu her field için mesela 100 field için ayrı ayrı yazmam gerekti makronun çalışması uzun sürdü. Ama bir seferde aktif olan tüm süzlerin iptal edilebilecek makronun olabileceğine inanıyor ve yardımlarınızı rica edeiyorum.
Saygılarımla..

Örnek:
Selection.AutoFilter Field:=2

 

[hamitcan]

Sub auto_close()
    ActiveSheet.ShowAllData
End Sub

şeklinde deneyin.

 

[umitking]

Merhaba Sn hamitcan,
Cevabınız için teşekkürler. Makro hem çalıştı hem çalışmadı...
Eğer dosyada aktif bir veri süz var ise süzleri iptal ediyor ve problemsiz bir şekilde kapanıyor. Ama dosyayı kapatırken aktif bir veri süz yoksa makro hata veriyor.

 

[Necdet]

Merhaba,

Sayın Hamitcan'ın kodlarına küçük bir ekleme yapalım, öyle deneyiniz.

Sub auto_close()
    Or Error Resume Next
    ActiveSheet.ShowAllData
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki kodu auto close prosedürüne yazarak deneyin.

If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

 

[umitking]

Çok teşekkür ederim. Sn Levent Menteşeoğlu'nun önermesi işimi gördü.
İyi günler..

 

[xlsx]

Kod kullanmadan çözüm

Merhaba,
Bir excel dosyasında En baştan 100 sütünda otomatikfilitre etkin. Böyle oluncada sayfayı açtığımızda bir önceki kullanımdan kaynaklanan bir veya birden fazla filitre (veri süzme) etkin olabiliyor ve yeni bir veri süzme için öncelikle bu veri süzleri bulup hepsini göster dememiz gerekiyor. Ama bazen can sıkıcı ve zaman alabiliyor.

Makrosuz çözüm için de:
Yeni bir veri süzmek için bu veri süzleri sizin arayıp bulmanıza gerek kalmadan ayrıca makrosuz çözüm olarak Filtre uygula kırılımında Tümünü Göster diye bir bölüm var.Buna tıkladığınızda tüm filtreler eski haline yani Tümü bölümü seçilmiş haline gelmekte.