InputBox ile Arama Yapma

Bu dosya, bir InputBox penceresine yazılan değerin çalışma sayfasında hangi hücrelerde geçtiğini bulan iki ayrı makro yöntemini örnekler. Bulunan her hücrenin adresi ve içeriği MsgBox penceresinde gösterilir.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: A1:D18 aralığında deneme amaçlı metin verileri bulunur. "ak", "akbaba", "ayakkabı", "apak" ve "baraka" gibi kelimeler arama denemeleri için A, B, C ve D sütunlarına dağıtılmıştır. Sayfada formül yoktur.
• Module1: KlasikBul ve AlternatifBul makrolarını içerir.
• Sayfa1 kod bölümü: cmdAction0_Click adlı bir düğme olayı vardır; yalnızca "Button Clicked!" mesajı gösterir ve aramayla ilgisi yoktur.

Makrolar​

• KlasikBul: Aranacak değer InputBox ile alınır. A1:D500 aralığında Find yöntemi kullanılır; arama değerlerde, satır sırasıyla, kısmi eşleşmeyle ve büyük/küçük harf duyarlı yapılır. İlk eşleşmeden sonra FindNext ile devam edilir ve arama ilk bulunan hücreye dönülünce durur. Her eşleşmede aranan değer, hücre adresi ve hücre içeriği MsgBox ile gösterilir. Hiç eşleşme yoksa hata yakalanır ve makro sessizce sonlanır.
• AlternatifBul: Aynı aralıktaki her hücre For Each döngüsüyle gezilir ve Like işleciyle "*aranan*" kalıbına uyup uymadığı denetlenir. Uyan her hücre için adres ve içerik MsgBox ile bildirilir. Bu yöntemde büyük/küçük harf ayrımı yoktur ve eşleşme yoksa herhangi bir mesaj gösterilmez.

Makrolar zararlı bir işlem içermez; dosya silme veya dış bağlantı yoktur, yalnızca hücreler okunur.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Alt+F8 ile makro listesini açın.
3. KlasikBul veya AlternatifBul makrosunu seçip çalıştırın.
4. Açılan pencereye aranacak değeri, örneğin "ak", yazıp onaylayın.
5. Her eşleşme için çıkan mesajdaki hücre adresini ve içeriği okuyun; sıradaki sonuca geçmek için mesajı kapatın.
6. Arama aralığını değiştirmek için makro kodundaki A1:D500 ifadesi düzenlenir.