Makrolar ile Arama Yapma

Bu dosya, bir UserForm üzerindeki TextBox kutularına yazılan harflere göre ListBox içindeki kayıtları bulmayı gösteren makrolu bir örnektir. Sayfa1'deki ay listesi forma aktarılır; arama iki farklı yöntemle yapılır. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: C3:C21 aralığında "Liste" başlığı altında Ocak'tan Aralık'a kadar ay adları yer alır. Sayfada formu açan bir CommandButton bulunur.
• UserForm1: Bir ListBox, iki TextBox ve üç CommandButton içerir. TextBox1 ve TextBox2 arama kutularıdır.
• Module1 ve Module2: Formu açan ve arama işlemlerini yapan prosedürleri barındırır.

Makrolar​

• Form: Sayfa1'i etkinleştirir, C4 hücresinden başlayan listenin satır sayısını belirler, ListBox1'in RowSource değerini bu aralığa bağlar ve UserForm1'i açar. Sayfa1'deki düğmeye tıklandığında çalışır.
• MetinAra: TextBox1 içeriği her değiştiğinde çalışır. Yazılan harfleri ListBox'a göndererek listede ilgili kaydı seçer; ilk harf uyuşmazsa seçimi listenin başına alır.
• Ara1: Birinci Ara düğmesine bağlıdır. TextBox1'deki metni, kayıtların herhangi bir yerinde geçen ifade olarak arar ve seçili kayıttan sonraki eşleşmeye ilerler. Eşleşme yoksa uyarı sesi verir ve seçimi kaldırır.
• Ara2: İkinci Ara düğmesine bağlıdır. TextBox2'deki metni aynı şekilde kayıt içinde arar; eşleşme yoksa uyarı sesi verir ve seçimi listenin başına alır.
• MetinAra_Tum: TextBox2 içeriği değiştikçe çalışır. Yazılan metinle başlayan ilk kaydı seçer ve kaydın kalan harflerini TextBox2'ye seçili olarak ekler (otomatik tamamlama). Kutu boşaltılırsa seçim kalkar.
• Üçüncü düğme formu sonlandırır.

Kodda dosya silme veya dışarıya bağlantı gibi zararlı bir işlem bulunmaz. Arama, Application.Match fonksiyonu ve joker karakterlerle yapılır; Option Compare Text sayesinde büyük/küçük harf ayrımı yoktur.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayfa1'deki düğmeye tıklayarak formu açın.
3. TextBox1 veya TextBox2'ye aranacak harfleri yazın; ListBox'ta eşleşen ay seçilir.
4. Aynı ifadenin sonraki eşleşmesi için ilgili Ara düğmesine tıklayın.
5. Formu kapatmak için üçüncü düğmeyi kullanın.

Kendi listenizle kullanmak için verilerin C4 hücresinden başlayarak alt alta yazılması yeterlidir.