TextBox ile ListBox Filtreleme

Bu dosya, bir UserForm üzerindeki TextBox'a yazılan harflere göre ListBox'taki cari isimlerini anlık olarak filtreler. Liste, yazılan metinle başlayan kayıtlara daralır. Büyük harf ve küçük harf ayrımı yapılmaz.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Cariler sayfası: A1:A74 aralığında "Cari ismi" başlığı altında firma unvanları listelenir (ör. otomotiv, conta, filtre ve yedek parça firmaları). Sayfada formül yoktur.
• UserForm1: Üzerinde arama kutusu olarak TextBox1 ve sonuçların gösterildiği ListBox1 bulunur.

Makrolar​

• Workbook_Open: Dosya açıldığında UserForm1 otomatik olarak gösterilir.
• Ac (Module1): UserForm1'i yeniden açar. Form kapatıldıktan sonra tekrar açmak için çalıştırılır.
• UserForm_Initialize: Form açılırken CountA ile Cariler sayfasının A sütunundaki dolu hücreler sayılır ve ListBox1 satır kaynağı A2 ile son dolu satır arasına bağlanır. Böylece tüm liste görüntülenir.
• TextBox1_Change: TextBox'taki metin her değiştiğinde ListBox temizlenir. A2'den son dolu satıra kadar her isim büyük/küçük harf farkı gözetilmeden Like işleciyle yazılan metinle karşılaştırılır. Metinle başlayan isimler ListBox'a eklenir. TextBox boşaltıldığında tüm liste yeniden görünür.

Makrolar yalnızca sayfadaki verileri okur ve ListBox'ı doldurur; dosya silme ya da dış bağlantı işlemi içermez.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin; UserForm1 kendiliğinden görüntülenir.
2. TextBox1'e aranan cari isminin ilk harflerini yazın; ListBox1 her harfte güncellenir.
3. Form kapatıldıysa Alt+F8 ile Ac makrosunu çalıştırın.
4. Kendi listenizi kullanmak için Cariler sayfasının A sütununa A2'den başlayarak isimleri yazın; kod son dolu satırı otomatik belirler.

Arama, kayıt isminin başından eşleşme yapar; ismin ortasında geçen kelimeler bulunmaz.