InputBox Nesnesi ile Bulma ve Renklendirme

Bu dosya, InputBox penceresine yazılan kelimeyi çalışma sayfasında arayan ve bulunan hücreyi sarı renkle işaretleyen iki makro içerir. Aynı işlem iki farklı yöntemle yapıldığı için makro yazmayı öğrenenler yöntemleri karşılaştırabilir.

Dosyanın içeriği​

• Sayfa1: A1:A4 aralığında Ahmet, Mehmet, Erkan ve Deneme değerlerinden oluşan basit bir liste bulunur. Sayfada formül yoktur.
• Module1: Bul ve DonguyleBul adlı iki makro içerir.

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.

• Bul: Önce sayfadaki tüm hücre dolgularını temizler, ardından InputBox ile "Aranacak Kelime" sorulur. Kelime Cells.Find ile aranır; bulunursa FindNext ile bir sonraki eşleşmeye geçilir, o hücre etkinleştirilir ve ColorIndex = 6 ile sarıya boyanır. Kelime listede yalnızca bir kez geçiyorsa FindNext aramayı başa saracağı için aynı hücre işaretlenir. Kelime bulunamazsa hiçbir hücre boyanmaz.
• DonguyleBul: Dolguları temizler, InputBox ile kelimeyi alır ve For Each döngüsüyle sayfadaki hücreleri tek tek tarar. Değeri girilen kelimeye eşit olan ilk hücre etkinleştirilir, sarıya boyanır ve döngü Exit For ile sonlandırılır. Bu yöntemde yalnızca ilk eşleşme işaretlenir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Geliştirici sekmesinden Makrolar penceresini açın (Alt+F8 kısayolu da kullanılabilir).
3. Bul ya da DonguyleBul makrosunu seçip çalıştırın.
4. Açılan pencereye aranacak kelimeyi, örneğin Erkan, yazıp Tamam düğmesine basın.
5. Bulunan hücre sarıya boyanır; yeni bir arama yapıldığında önceki renkler temizlenir.

Kendi verilerinizle kullanmak için listeyi Sayfa1'e yazmanız yeterlidir; makrolar etkin sayfanın tüm hücrelerinde çalışır.