İnputbox İle Sütunda Arama

Bu dosya, açılan InputBox penceresine yazılan kelimenin sayfada aranmasını ve bulunan hücrenin sarı renkle işaretlenmesini gösteren bir makro örneğidir. Arama ve işaretleme işlemi tek bir makro ile yapılır.

Dosyanın içeriği​

• Sayfa1: A1:C4 aralığında örnek veriler bulunur. A1 hücresinde Ahmet, diğer hücrelerde Mehmet, Erkan ve Deneme değerleri yer alır. Aramayı denemek için bu veriler kullanılabilir.
• Module1: Bul isimli makroyu barındıran VBA modülüdür.

Dosyada formül bulunmaz; işlem tamamen makro ile yapılır.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Makro dışarıya bağlantı kurmaz, dosya silmez veya değiştirmez; yalnızca hücre rengini düzenler.

• Bul: Önce sayfadaki tüm hücrelerin dolgu rengini temizler ve önceki işaretlemeleri kaldırır. Ardından "Aranacak Kelime" başlıklı bir InputBox açar. Girilen metin Cells.Find ile sayfada aranır. Eşleşme bulunursa Cells.FindNext ile bir sonraki eşleşmeye geçilir, o hücre etkinleştirilir ve ColorIndex = 6 değeriyle sarıya boyanır. Eşleşme bulunamazsa hiçbir hücre işaretlenmez.

Makro her çalıştığında önceki renkler silindiği için sayfada aynı anda tek işaretli hücre bulunur. Kodda FindNext kullanıldığından, sayfada aranan kelimeden yalnızca bir tane varsa arama başa dönerek aynı hücreyi bulur. Birden fazla eşleşme varsa ilk değil, ikinci eşleşme işaretlenir.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. Alt+F8 tuşlarıyla makro listesini açıp Bul makrosunu seçin ve çalıştırın.
3. Açılan kutuya aranacak kelimeyi yazıp Tamam düğmesine basın.
4. Bulunan hücre seçilir ve sarıya boyanır.
5. Kendi verinizle kullanmak için Sayfa1 üzerindeki örnek verileri değiştirin; makro etkin sayfadaki tüm hücrelerde arama yapar.

Dosya .xlsm biçimindedir; makroların kaybolmaması için aynı biçimde kaydedilmelidir.