"Bul" Fonksiyonunu aktif edecek komutu makro içine nasıl yazabilirim ?

[A_day]

"Ctrl + f" ile aktif ettiğimiz "Bul" komutunu (penceresini) bir makro butonu ile aktif etmem gerekiyor.

"Makro Kaydet" işlemiyle bu işlemin yolunu gösterdiğim halde, makro butonuna tıkladığımda "Bul" penceresi çıkmıyor. Sebebini öğrenmek için makro satırlarına baktığımda "Bul" fonksiyonunu aktif edecek hiç bir satırın yazılı olmadığını gördüm.

Nasıl bir komut satırı eklemeliyim ki; "Bul" komutu (penceresi) butona bastığımda aktif olsun ?

 

[Ömer]

Merhaba,

Deneyiniz.

Sub deneme()
    Application.CommandBars.FindControl(ID:=1849).Execute
End Sub

 

[A_day]

Ömer bey Hızır gibisiniz. İyi ki varsınız, çok teşekkür ediyorum....

 

[Korhan Ayhan]

Alternatif;

Option Explicit

Sub Bul()
    SendKeys "^f", True
End Sub

 

[Korhan Ayhan]

Başka bir alternatif;

Option Explicit

Sub Bul()
    CreateObject("WScript.Shell").SendKeys "^f"
End Sub

 

[ibrahimpeng]

SAYIN A_DAY : SUB MAKRO() - DIM STR AS STRING - STR=STR+CSTR(WorksheetFunction.Find("Bul",B2) SAYGILAR