Tek tuşla makro çalıştırma

[EmrExcel16]

Merhaba Arkadaşlar

Tek bir tuşa basarak (Herhangi bir tuş) bir makroyu tetiklemek mümkün müdür kısayol yaparsam kombinasyon yapmak zorunda kalıyorum ben tek tuşla çalışmasını istiyorum o tuşun görevi istediğim makroyu çalıştırsın başka bir işe yaramasada olur zaten dosyayı açtığımda 4 adet makro olacak bunların hepsini birer tuşa atıyacağım ve sadece o tuşlarla işlem yapacağım mause kullanımı olmıyacak

Bu şekilde olmaz ise nasıl bir yol izlemem gerekli üstadların yardımlarını rica ederim

 

[Muhammet Okumuş]

Hangi tuşa atamak istiyorsunuz?

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu ThisWorkBook (BuÇalışmaKitabı) bölümüne uygulayıp deneyiniz.

"A" harfine bastığınızda TEST isimli makro çalışır.

Kod içindeki satırı çoğaltarak istediğiniz tuşa istediğiniz makroyu tanımlayabilirsiniz.

İlk iki kod bloğu tanımlama için kullanılır.
Sonraki iki kod bloğu ise tuşun eski görevine dönmesini sağlar. Bu işlem başka bir dosyaya geçince ya da bu işlemi yaptığınız dosyayı kapatınca gerçekleşir.

Option Explicit

Private Sub Workbook_Open()
    Application.OnKey "a", "TEST"
    Application.OnKey "A", "TEST"
End Sub

Private Sub Workbook_Activate()
    Application.OnKey "a", "TEST"
    Application.OnKey "A", "TEST"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "a"
    Application.OnKey "A"
End Sub

Private Sub Workbook_Deactivate()
    Application.OnKey "a"
    Application.OnKey "A"
End Sub

 

[EmrExcel16]

Çok teşekkür ederim Üstadım sağolun.