F Tuşlarına Makro Atama

[Skorpiyon]

Arkadaşlar,
oluşturduğum bir form üzerindeki komutları butonlar yerine, F tuşlarına atamak istiyorum.

Örneğin;
Kaydet isimli bir buton düşünün. Bu butonu kaldırmak ve onun yerine F1 tuşuna bastığımda bu buton altına koyacağım kodların çalışmasını istiyorum.

Bu konuda bi arama yaptırdım ve karşıma tam 120 küsur sayfa çıktı ve ilk 30 sayfada bulamadım. Vaktim şu an için müsait olmadığından yeni bir başlık altında sormayı uygun gördüm.

Sadece "F9'a Makro Atamak" diye bi konu var. O da tam işimi görmedi.

Yardımcı olursanız müteşikkir kalacağım.

Saygılar, Şaban...

 

[N.Ziya Hiçdurmaz]

yanıt

Burada kod F12 tuşuna atanmıştır siz isteğinize göre değiştirirsiniz.(Not:F12 ye atadığınız makroyu iptal etmek isterseniz auto_opendeki " " tırnak içini boş bırakınız.)

Sub auto_open()
Application.OnKey "{F12}", "test"
End Sub
Sub test()
MsgBox "ok" 'buraya kodlarınızı yazınız.
End Sub

 

[Skorpiyon]

Sayın V.Basic For Application,

Teşekkür ederim.

 

[marimar]

sn V.Basic For Application teşekkürler gerçekten de her zama işimize yaraya bilecek bir bilgi,benim bir sorum olacak çalışma kitabı açılırken form açılıyor ben formdaki butonlara F tuşlarına basarak işlem yaptırmak istiyorum.
F1 tuşuna basınca commandbutton5 (tüm kayıtlar)'i çalıştırmak istiyorum ama olmuyor.
nasıl yapabiliriz teşekkürler

 

[Skorpiyon]

Sayın V.Basic For Application,

Verdiğiniz kod güzel ama sadece Excel ana sayfasında çalıştırabildim.
Maalesef işimizi görmedi. Benim yapmak istediğim şey, marimar arkadaşımızın da belirttiği üzere, Form açılacak ve ortada hiçbir Commandbutton yok iken, (atıyorum) F12 'ye bastığımda "Kaydet" makrosunu çalıştıracak bir sistem.

Verdiğniiz kodu değişik şekillerde denememe rağmen çalıştıramadım.

Yardımlarınızı beklerim, Saygılar, Şaban...

 

[Skorpiyon]

F Tuşlarına Makro Atama konusu hakkında bilgisi olan arkadaşlardan yardım bekliyorum.

 

[Seyit Tiken]

Yapacağınız yukarıda Sayın V.Basic For Applications verdiği kodu kendinize uyarlamaktır. İşlem yapmak istediğiniz kod(lar&#305 bir isimle Module yazın.

 

[Skorpiyon]

Sayın Seyit Tiken,

denedim. Form aktif olduğu zaman, F tuşları işlevini yerine getirmiyor.

Kodu formun initialize'sinden tutunda, Workbook'un open'ine kadar bir çok yerde de kullandım. Ama çalıştıramadım, acaba yanlış yaptığım yer neresi ?

 

[Mahmut Bayram]

Sn. skorpiyon vba da fonksiyon tuşlarının keycode ve keyascii değerleri karşılığı bildiğim kadarıyla yok veya vba da ben elde edemedim.
Fakat F tuşları haricinde bir çözüm isterseniz eğer,
Enter tuşunun keyascii değeri 13 tür. Buna göre şöyle bir çözüm öneriyorum.

Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Label1.Caption = KeyAscii
If Label1 = 13 Then
Call CommandButton1_Click
End Sub
Private Sub CommandButton1_Click()
MsgBox "aha da oldu"
End Sub

 

[veyselemre]

Kodları userform kod sayfasına ekleyin deneyin.

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode > 111 And KeyCode < 124 Then
    MsgBox "F" & KeyCode - 111 & " Tu&#351;una Bas&#305;ld&#305;"
End If
End Sub

 

[Skorpiyon]

Sayın Veyselemre,

verdiğiniz kodlar işe yaradı. Çok teşekkür ederim.

 

[Mahmut Bayram]

Hımm güzel mantık üstadım.
Bunu hemen arşivime alayım.
Teşekkürler.

 

[Skorpiyon]

Özür dileyerek,

galiba bugün aceleci bir günüm.

Sayın Veyselemre,
aşağıdaki dosyayı inceleyebilir misiniz ?

 

[veyselemre]

Ekteki örneği inceleyin.

 

[Skorpiyon]

Tekrar teşekkürler.