Combobox iki Kriterli Arama ve Listeleme

Bu dosya, bir UserForm üzerindeki ComboBox nesnesinde yazdıkça arama yapılmasını sağlar. İki arama kriteri sunulur: yazılan karakterlerle başlayan kayıtlar (metin başından eşleşme) veya yazılan metnin kayıt içinde herhangi bir yerde geçtiği kayıtlar (genel arama). Liste, yazılan her karakterle birlikte yenilenir.

Dosyanın içeriği​

• Sayfa1: A2:A10 aralığında 1'den 9'a kadar sıra numaraları bulunur. ComboBox'un listesini oluşturan veriler B sütununa, 2. satırdan itibaren girilir. Sayfada UserForm'u açan bir CommandButton yer alır.
• UserForm1: Arama kutusu olan ComboBox1 ile arama yöntemini belirleyen OptionButton1 (metin başından) ve OptionButton2 (genel arama) seçeneklerini içerir.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kodda dosya silme veya dışarıya bağlantı gibi işlemler yoktur.

• CommandButton1_Click (Sayfa1): Sayfadaki düğmeye basıldığında UserForm1 açılır.
• ComboBox1_change (UserForm1): ComboBox'taki metin her değiştiğinde çalışır. B sütunundaki son dolu satır belirlenir. Kutu boşsa liste B2'den son satıra kadar tüm kayıtlarla yeniden yüklenir. Yazılan metin listedeki bir kayda birebir eşitse, seçim yapılmış sayıldığından işlem yapılmaz. OptionButton2 seçiliyse B sütunundaki her hücrede Find ile arama yapılır ve metni içeren kayıtlar listeye eklenir. OptionButton1 seçiliyse her kaydın ilk karakterleri, yazılan metnin uzunluğu kadar Mid ile alınıp karşılaştırılır; eşleşenler listeye eklenir. İki seçenek de işaretli değilse "Arama kriteri seçin" uyarısı verilir.

Nasıl kullanılır​

1. Dosyayı açıp makroları etkinleştirin.
2. Aranacak kayıtları Sayfa1'de B2 hücresinden başlayarak alt alta girin.
3. Sayfa1'deki düğmeye basarak UserForm'u açın.
4. Arama yöntemini seçin: metin başından eşleşme için OptionButton1, metnin herhangi bir yerinde eşleşme için OptionButton2.
5. ComboBox'a yazmaya başlayın; liste seçilen yönteme göre daraltılır, ilgili kaydı listeden seçin.