Textbox İle Listboxta Arama

Bu dosya, UserForm üzerindeki TextBox'a yazılan karakterlerin ListBox içinde aranmasını ve bulunan değerin seçilmesini gösterir. Liste değerleri Sayfa1 sayfasındaki ay adlarından alınır. Arama, yazarken anlık seçim ve sonraki eşleşmeyi bulma yöntemlerini bir arada içerir.

Dosyanın içeriği​

• Sayfa1: C3 hücresinde "Liste" başlığı, C4 hücresinden itibaren Ocak, Şubat, Mart gibi ay adları yer alır. Sayfada UserForm'u açan bir düğme bulunur.
• UserForm1: Bir ListBox, iki TextBox ve üç CommandButton içerir. İlk TextBox içerdiği metni ListBox'ta arar, ikinci TextBox otomatik tamamlama ile arar.
• Module1 ve Module2: Formu açan ve arama işlemlerini yapan makroları barındırır.

Dosyada çalışma sayfası formülü bulunmaz; tüm işlem makrolarla yürütülür.

Makrolar​

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

• Form: Sayfa1'i etkinleştirir, C4 hücresinden başlayan bölgenin satır sayısını bulur ve ListBox'ın RowSource değerini bu aralığa ayarlar. Ardından UserForm1 görüntülenir. Sayfa1 üzerindeki düğme bu makroyu çalıştırır.
• MetinAra: Birinci TextBox içeriği her değiştiğinde çalışır. Yazılan metni SendKeys ile ListBox'a göndererek ilgili kaydı seçer. İlk harf uyuşmazsa seçimi listenin başına alır.
• Ara1: İlk düğmeye bağlıdır. Yazılan metni ListBox içinde seçili kayıttan sonrasında, metnin herhangi bir yerinde geçecek biçimde arar. Eşleşme bulursa o kaydı seçer; bulamazsa uyarı sesi verir ve seçimi kaldırır. Düğmeye tekrar basıldıkça sonraki eşleşmeye geçilir.
• Ara2: İkinci düğmeye bağlıdır. İkinci TextBox için aynı sonraki eşleşmeyi bulma işlemini yapar; eşleşme yoksa uyarı sesi verir ve ilk kayda döner.
• MetinAra_Tum: İkinci TextBox değiştikçe çalışır. Yazılan metinle başlayan ilk kaydı seçer ve kaydın kalan harflerini TextBox içinde seçili olarak ekleyerek otomatik tamamlama sağlar.
• Üçüncü düğme formu sonlandırmak için End komutunu kullanır.

Makrolarda dosya silme veya dış bağlantı işlemi bulunmaz. Kod büyük/küçük harf duyarsız karşılaştırma için Option Compare Text kullanır.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayfa1 üzerindeki düğmeye tıklayarak formu açın.
3. Birinci TextBox'a aranacak harfleri yazın; eşleşen ay ListBox'ta seçilir.
4. Aynı metnin sonraki eşleşmesi için ilk düğmeye basın.
5. İkinci TextBox'ta otomatik tamamlamayı deneyin, sonraki eşleşme için ikinci düğmeyi kullanın.
6. Formu kapatmak için üçüncü düğmeye basın.
7. Kendi listenizi kullanmak için değerleri Sayfa1'de C4 hücresinden itibaren aşağı doğru kesintisiz yazın.