Onkey Yöntemi

[mesudiye_052]

Selamlar
Çalışma kitabının herhangi bir sayfasında iken Ctrl + insert yaptığmda
Onkey yöntemi ile Userform1 aktif olup Aktif Çalışma sayfasında açılmasını nasıl sağlarız

Saygılarla;

 

[hamitcan]

Sub InsertTusu()
Application.OnKey "^{INSERT}", "CALIS"
End Sub

Sub CALIS()
UserForm1.Show
End Sub

 

[mesudiye_052]

Selamlar;
Sayın Hamitcan
Cevabınız için teşekkür ederim
şöyle yapabilirmiyiz acaba
herhangi bir butona basmadan herhangi bir çalışma sayfasında iken
Ctrl + İnsert yaptığımızda Userform1 ekrana gelsin
Kolay gelsin

 

[hamitcan]

Zaten böyle çalışıyor.

 

[Korhan Ayhan]

Selamlar,

Sn. hamitcan beyin önerdiği kodun ilk bloğunu Autpen prosedürüne ya da Workbook_Open prosedürüne yazarsanız istediğiniz sonucu alabilirsiniz.

 

[mesudiye_052]

Selamlar;
Sayın Hamitcan hocam;
Sorun şurada

Sub InsertTusu()
Application.OnKey "^{INSERT}", "CALIS"
End Sub

Yukarıdaki makro buton yada F8 ile adımladıktan sonra Ctrl + insert'e basınca çalışıyor
Misal örnek çalışma kitabını açtığımda direk Ctrl + insert deyince Userform1 gelsin istiyorum

Saygılarla;

 

[mesudiye_052]

Selamlar;
Sayın Hamitcan
Sayın Korhan Ayhan

Çok teşekkür ederim
tam istediğim gibi oldu

Saygılarla;

 

[mesudiye_052]

Selamlar;
Sayın Korhan Ayhan Hocam
acaba sadece sayfa2'de aktif olup diğer çalışma sayfalarında aktif olmaması
için ne yapabiliriz.

Saygılar;

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

Uygulanan kodlar;

ThisWorkbook bölümüne;

Option Explicit
 
Private Sub Workbook_Activate()
    Application.OnKey "^{INSERT}", "FORM"
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "^{INSERT}", ""
End Sub
 
Private Sub Workbook_Deactivate()
    Application.OnKey "^{INSERT}", ""
End Sub
 
Private Sub Workbook_Open()
    Application.OnKey "^{INSERT}", "FORM"
End Sub
 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name <> "Sayfa2" Then
        Application.OnKey "^{INSERT}", ""
    Else
        Application.OnKey "^{INSERT}", "FORM"
    End If
End Sub

Boş bir modüle;

Option Explicit
 
Sub FORM()
    UserForm1.Show
End Sub

 

[mesudiye_052]

Selamlar;
Sayın Korhan Ayhan
Çok teşekkür ederim