CTRL+F Arama Tuş Kombinasyonu Hk.

[kaydoldum]

Excel sayfası üzerine bir buton eklemekle başlayalım. Butonun adı buton1 olsun. Bu butona basıldığında CTRL+F tuş kombinasyonunu çalıştıran macro nedir acaba. CTRL+F bir kısayol tuş kombinasyonu daha kısa olması için tüm çabam. Butona tıklandığında CTRL+F tuş kombinasyonu çalışabilirmi. Yardımlarınızı rica ederim.

 

[alpi]

Sayın Kaydoldum Ctrl+F tuş kombinasyonu zaten kısayol tuşudur.

Saolsunlar Excel'i yapanlar bize kolaylık olsunlar diye bu kısayol tuşlarını Excel'e eklemişler.

Siz bu işlemin daha kolay bir şekilde gerçekleştirilmesini yani düğmeye basarak gerçekleştirilmesini istiyorsunuz. Fakat düğme kullanmaktansa kısayol tuşunu kullanmak daha kolay ve kestirme yöntemdir. Dikkat ederseniz adı üstünde "kosayol Tuşu".

Bu işlemi bir düğmeye atamak işi uzatmaktan başka bir işe yaramaz.

 

[kaydoldum]

Farkındayım, yukarıdaki yazımda belirttim. Fe kat ben yukarıdaki işi nasıl gerçekleştirebilirim. Var mıııı yok muuu. Hı ? Komik olduğunu biliyorum. Ama benim için çok kısa bir yol. Bazen F bazen Q klavyede açıyoruz sayfayı F nerdeydi o nerdeydi diye aranıp duruyoruz. Bize o lazım. Teşekkürler.

 

[alpi]

İstediğiniz işlemi aşağıdaki kod ile gerçekleştirebilirsiniz.

Option Explicit
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
         ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
 
Sub BuluÇalıştır()
         Call keybd_event(17, 0, 0, 0) 'Ctrl Basıyoruz
         Call keybd_event(70, 0, 0, 0) 'F Basıyoruz
         Call keybd_event(70, 0, 2, 0) 'F Elimizi kaldırıyoruz
         Call keybd_event(17, 0, 2, 0) 'Ctrl Elimizi kaldırıyoruz
End Sub

Bu kodu bir modül sayfasına yazınız.
Diilediğiniz düğmeye makro olarak atayabilirsiniz

 

[Haluk]

Alternatif olarak, aşağıdaki prosedürlerin her ikisi de bu işi yapar;

Sub Test()
    ActiveSheet.UsedRange.Select
    Application.CommandBars.FindControl(ID:=1849).Execute
    ActiveCell.Select
End Sub
'
Sub Test2()
    ActiveSheet.UsedRange.Select
    Application.Dialogs(xlDialogFormulaFind).Show
    ActiveCell.Select
End Sub

 

[kaydoldum]

ben zaten biliyodum. dilimin ucundaydı tam söyleyecektim ki. neyse çok sağolun

 

[alpi]

Hatırlatabildik yani buda güzel:hihoho: