userform kısa yolu olurmu

[Hacı Bayram ÖZKAN]

arkadaşlar herhangi bir excel çalışma sayfasında hazırlanan bir userforma büton kullanamadan klaveye kısa kolu verile bilir mi? Örneğin; Ctrl + 1,2 veya harf ve alt + v gibi kısa yol tuşları verilebilirmi teşekkürler

 

[Recep İpek]

Yeni bir modül yaratarak aşağıdaki makroyu buraya kopyalayınız.

Sub FormAc()
    UserForm1.Show
End Sub

Aşağıdaki kodları ise ThisWorkbook bölümüne kopyalayınız.

Private Sub Workbook_Open()
Application.OnKey "^+{v}", "FormAc"
End Sub
 
 
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Application.OnKey "^+{v}", "" ' CTRL+SHIFT+v
End Sub

 

[Orion1]

Recep bey userform açıkken formdaki herhangi bir herhangi bir buton için kısa yol atayabilirmiyiz.Ben class modulu ile her nesnenin keycode sine kod yazarak yaptım ama belki daha kestirme bir yolu vardı diye sordum.

 

[Recep İpek]

Sanırım bunun için en uygun çözüm class modül.Başka türlü çözüm şu anda aklıma gelmiyor.

 

[Orion1]

Sanırım bunun için en uygun çözüm class modül.Başka türlü çözüm şu anda aklıma gelmiyor.

Teşekkür ederim.Üstadım.