Farkli bir moduldeki Private Sub'a kisayol atamak.

[Mertinc]

Merhaba, muhtemelen daha once konusulmustur diye forumda onceki konulari aradim ancak benzeri birsey bulamadim.

Module 1'de BenimMakrom isimli bir gizli makromuz (Private Sub) olsa,

Buna VBA'de nasil klavye kisayolu atariz?

Su asagidaki kodu denedigim farkli farkli calismalardan sadece birinde calistirmayi basardim ancak ilginctir ki onda da sadece +Q yani Shift+Q kombinasyonlarindan baska tus kombinasyonu atayamadim. Yani genel anlamda bu da ise yaramadi diyebilirim.

Sub Workbook_Open()
Application.OnKey "+Q", "Module1.BenimMakrom"
End Sub


Onerilerinizi merakla bekliyorum.


Sevgi ve Selamlar

 

[vardar07]

Aşağıdaki gibi denermisiniz

 Sub Workbook_Open()
    With Application
    .OnKey Key:="Q", Procedure:="BenimMakrom"
    End With
End Sub