Escape Tuşuna Çalışan Makro

[baydeniro]

Merhaba arkadaşlar. ESCAPE tuşuna basınca bir makronun çalışması mümkün müdür ?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodlar ile bu işlemi yapabilirsiniz.

ThisWorkbook bölümüne;

Option Explicit
 
Private Sub Workbook_Open()
    Application.OnKey "{ESC}", "TEST"
End Sub

Boş bir modüle;

Option Explicit
 
Sub TEST()
    MsgBox "[URL="http://www.excel.web.tr"]www.excel.web.tr[/URL]"
End Sub

Kitabınızı kaydedin ve katıp açın. Artık ESC tuşuna bastığınızda TEST isimli makronuz çalışacaktır.

 

[baydeniro]

Çok teşekkür ederim sayın Korhan Ayhan