enter tuşu

[tiger3156]

arkadaşlar enter tuşuna bastığımda kaydettiğim bir makroyu nasıl çalıştırabilirim?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodları kullanabilirsiniz.


ThisWorkbook kod bölümüne;

Option Explicit
 
Private Sub Workbook_Activate()
    Application.OnKey "~", "MAKRONUZUN_ADI"
    Application.OnKey "{ENTER}", "MAKRONUZUN_ADI"
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "~", ""
    Application.OnKey "{ENTER}", ""
End Sub
 
Private Sub Workbook_Deactivate()
    Application.OnKey "~", ""
    Application.OnKey "{ENTER}", ""
End Sub
 
Private Sub Workbook_Open()
    Application.OnKey "~", "MAKRONUZUN_ADI"
    Application.OnKey "{ENTER}", "MAKRONUZUN_ADI"
End Sub

Boş bir modüle;

Option Explicit
 
Sub MAKRONUZUN_ADI()
    MsgBox "BU BİR DENEMEDİR..."
End Sub

 

[tiger3156]

teşekkürler arkadaşım, bu çok işime yarayacak eline sağlık