Üç Ayrı TextBox ile Arama Yapma

Bu dosya, Sayfa1 üzerindeki bir tabloda üç ayrı TextBox kullanarak arama yapan bir UserForm örneğidir. Her kutuya yazılan harfler ilgili sütundaki kayıtların başlangıcıyla eşleştirilir ve sonuçlar form üzerindeki ListBox'ta anlık olarak listelenir.

Dosyanın içeriği​

• Sayfa1: A1:D42 aralığında veri tablosu bulunur. A sütununda sıra numarası, C sütununda Soyad yer alır; B ve D sütunları da aramada kullanılır. Sayfada UserForm1'i açan bir CommandButton bulunur.
• UserForm1: Üç TextBox ve sonuçların gösterildiği bir ListBox içerir. ListBox üç sütunludur ve sütun genişlikleri 90 olarak ayarlanmıştır.

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

Makrolar​

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

• CommandButton1_Click (Sayfa1): Düğmeye basıldığında UserForm1'i açar.
• UserForm_Initialize: Form açılırken ListBox'a Sayfa1 üzerindeki B2:D son satır aralığını yükler, sütun sayısını 3 yapar ve imleci TextBox1'e getirir.
• TextBox1_Change: B sütunundaki değerleri TextBox1'e yazılan metinle başlayanlar için tarar. Büyük/küçük harf farkı gözetilmez. Eşleşen satırın B, C ve D değerleri ListBox'a eklenir.
• TextBox2_Change: Aynı işlemi C sütunu ve TextBox2 için yapar; ListBox'ta B, C ve D değerleri gösterilir.
• TextBox3_Change: Aynı işlemi D sütunu ve TextBox3 için yapar.

Her TextBox kendi sütununda arama yapar ve ListBox'u yeniden doldurur. Bir kutuya yazıldığında önceki sonuçlar temizlenir; kutular birbirinin süzmesini sürdürmez.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayfa1 üzerindeki düğmeye tıklayarak formu açın.
3. Form açıldığında B2:D aralığındaki tüm kayıtlar listelenir.
4. Aranacak sütuna karşılık gelen TextBox'a ilk harfleri yazın; sonuçlar yazdıkça güncellenir.
5. Kendi verinizi kullanmak için Sayfa1'deki B:D sütunlarının verilerini değiştirin; kod son dolu satırı otomatik belirler.