Vba kullanarak excel'de filtreler nasıl temizlenir (örnekle)

Bir Excel sayfasındaki tüm filtreleri temizlemek için VBA’da aşağıdaki sözdizimini kullanabilirsiniz:

 SubClearFilters ()

If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData

End Sub

Bu özel makro, şu anda etkin olan sayfadaki tüm filtreleri temizleyecektir.

Bu makro, şu anda gizli olan tüm satırların görünür olmasını sağlamak için ShowAllData yöntemini kullanarak çalışır.

Etkin sayfada şu anda hiçbir satır filtrelenmemişse, bu makroyu çalıştırdığınızda hiçbir şey olmayacaktır.

Aşağıdaki örnekte bu makronun pratikte nasıl kullanılacağı gösterilmektedir.

Örnek: VBA Kullanarak Excel’deki Tüm Filtreleri Temizleme

Diyelim ki Excel’de çeşitli basketbol oyuncuları hakkında bilgiler içeren aşağıdaki veri kümesine sahibiz:

Şimdi, yalnızca Takım sütunundaki değerin Mavs veya Nets’e eşit olduğu satırları gösterecek bir filtre eklediğimizi varsayalım:

Şimdi bu filtreyi VBA kullanarak temizlemek istediğimizi varsayalım.

Bunun için aşağıdaki makroyu oluşturabiliriz:

 SubClearFilters ()

If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData

End Sub

Bu makroyu çalıştırdığımızda filtre sayfadan otomatik olarak temizlenecektir:

Filtreyi temizlediğimiz için daha önce gizlenen tüm satırların artık yeniden görünür olduğunu unutmayın.

Not : VBA ShowAllData yöntemine ilişkin tüm belgeleri burada bulabilirsiniz.

Ek kaynaklar

Aşağıdaki eğitimlerde VBA’da diğer ortak görevlerin nasıl gerçekleştirileceği açıklanmaktadır:

VBA: Pivot tabloları filtreleme
VBA: pivot tabloları nasıl yenilenir
VBA: yinelenen değerler nasıl kaldırılır