UserForm Aktif olduğu zaman F1 den F12 kadar her tuşa gör

[YSNDRVSGL]

Merhaba arkadaşlarrr


oluşturduğum Userform1 aktif olduğu zaman
F1 tuşuna basınca userform2 açılsın istiyorum
veya F12 Basıldığında da Excelden Çıkılsın istiyorumm


Herkese şimdiden Teşekkürler................


Saygılarrr
....YD.....

 

[veyselemre]

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 112 Then UserForm2.Show
End Sub

şeklinde f1 e basınca userform2 yi gösteriyor.
---------------------------
Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
MsgBox "Basılan Tuşun Kodu :" & KeyCode
End Sub

şeklinde basılan tuşun kodlarını öğrenelirsin