Excel Arama Butonu Ekleme

Bu dosya, Excel'in çalışma sayfası menü çubuğuna bir arama kutusu eklemeyi kısa bir makro örneğiyle gösterir. Dosya açıldığında menü çubuğunda BUL başlıklı bir metin kutusu oluşturulur ve bu kutu Excel'in "Bul" iletişim penceresine bağlanır.
Önemli: Dosya makro içerir (.xlsm); açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1, Sayfa2, Sayfa3: Üç sayfa da boştur; içlerinde veri ya da formül yoktur. Arama işlemi bu sayfalara girilecek verilerde denenebilir.
• ThisWorkbook: Dosya açılışında çalışan Workbook_Open olayını içerir.
• Module1: Arama penceresini açan Bulmaca adlı işlevi içerir.

Makrolar​

• Workbook_Open: Dosya açıldığında "Worksheet Menu Bar" çubuğunda önceki bir BUL denetimi varsa silinir, ardından msoControlEdit türünde yeni bir metin kutusu eklenir. Kutunun başlığı BUL olarak ayarlanır ve OnAction özelliği ile kutuya bir giriş yapıldığında Bulmaca makrosu çalıştırılır. Silme adımı hata denetimi kapatılarak yapıldığından kutu daha önce yoksa hata oluşmaz.
• Bulmaca: xlDialogFormulaFind iletişim penceresini açar ve arama metni olarak menü çubuğundaki bir denetimin metnini kullanır.

Kodda dosya silme ya da dışarıya bağlantı gibi zararlı bir işlem yoktur.
Not: Eklenen denetimin başlığı BUL iken Bulmaca işlevi ARA adlı denetimin metnini okur. İki ad aynı olmadığından, arama kutusunun beklenen biçimde çalışması için işlevdeki ad ile kutunun başlığının aynı olması gerekir; her ikisi de Visual Basic Düzenleyicisi'nden (Alt+F11) düzenlenebilir.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. Menü çubuğunda beliren BUL kutusunu bulun.
3. Kutuya aranacak ifadeyi yazıp Enter tuşuna basın; Bul penceresi açılır.
4. Kendi çalışma kitabınıza uygulamak için Alt+F11 ile ThisWorkbook ve Module1 içindeki kodu kendi dosyanıza taşıyıp dosyayı .xlsm olarak kaydedin.