Makro ile Filtreleme Yapma

Bu dosya, A sütunundaki kodların VBA makrosu ile kriterlere göre ayrı sütunlara listelenmesini gösteren bir örnektir. Kriterler hücrelerden okunduğu için B1 ve C1 değiştirilerek farklı sonuçlar elde edilir.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: A1:G13 aralığındadır. A1 hücresinde "kodlar" başlığı, A2:A13 aralığında "asm 234", "kts 456", "kys 678", "sym 543" gibi kod listesi bulunur. C1 hücresinde "kts" kriteri yer alır. B1 kriter hücresidir; kriter girildiğinde sonuçlar B sütununa listelenir.
• G6 hücresindeki not, B1 ve C1 hücrelerindeki kriterlerin değiştirilerek de denenebileceğini belirtir.

Dosyada formül bulunmaz; tüm işlem makro ile yapılır.

Makrolar​

Module1 içindeki listele prosedürü, A2 hücresinden A sütunundaki son dolu satıra kadar her kodu sırayla kontrol eder:

1. Kodun baş harfleri B1 hücresindeki kriterle başlıyorsa kod B sütununa yazılır.
2. Başlamıyorsa C1 hücresindeki kriterle karşılaştırılır; eşleşen kod C sütununa yazılır.
3. Hiçbirine uymayan kodlar D sütununa yazılır.

Her yazma işleminden önce CountIf ile ilgili sütunda aynı kodun olup olmadığına bakılır; böylece tekrar eden kodlar (örneğin "asm 234" ve "kts 897") hedef sütunlarda yalnızca bir kez yer alır. Kod, dosya silme veya dış bağlantı gibi işlemler içermez.

Nasıl kullanılır​

1. Dosyayı açıp makroları etkinleştirin.
2. B1 ve C1 hücrelerine aranacak kod başlangıçlarını (örneğin "asm", "kts") yazın.
3. A sütununa listelenecek kodları girin veya mevcut listeyi kullanın.
4. Alt+F8 ile listele makrosunu çalıştırın.
5. Sonuçları B, C ve D sütunlarında inceleyin. Kriteri değiştirip tekrar denerken önceki sonuçların üzerine ekleme yapılmaması için B:D sütunlarını önceden temizleyin.