Makro ile Filtreleme

Bu kısa bilgilendirme yazımızda, Makro yöntemiyle basit bir şekilde filtreleme nasıl yapılır, kısaca bundan bahsedeceğiz.

Büyük veriler ile çalışırken, Excel'in Filtreleme özelliğini sık sık kullanırız. Böylece bir aşağı bir yukarı gitmektense, istediğimiz kritere göre seçimlerimizi yapıp, filtreledikten sonra verilerimizi kontrol etmeyi daha kısa zamanda yaparız.

Peki onbinlerce satırlık bir veritabanında, 3-5 kelimeyi birden ya da ayrı ayrı filtrelemek istediğimizde ne yapmamız gerekir?

Bunun tek yolu, Filtreleme yaptıktan sonra tek tek seçim yapmak. Ama harfe, sayıya göre tek tek seçim yapmak biraz zorlayıcı olabilir. Ama bir makro ile kolayca bu işin üstesinden gelebiliriz.

Sub Filtrele()
Sheet1.Range("A9:C" & Sheet1.Range("A65536").End(xlUp).Row).AutoFilter Field:=1, Criteria1:=Array(Split(Sheet1.Range("A1"), ",")), Operator:=xlFilterValues
End Sub


Yukarıdaki kodu kullanarak, istediğimiz kelimeleri aralarına virgül koyarak kolayca filtreleyebiliriz.

filtre



Bu çalışmaya ilişkin dosyamızı, http://exceldepo.com/dosyalar.php?dosya_no=193 adresinden indirebilirsiniz.