VBA da "F" (F1-F2......F12) Tuşlarının Kullanım Sorunu

[efeksk]

Arkadaşlar...
Ekte vermiş olduğum dosyada bir sitede bulduğum Class Modul ve Standar Modul Kullanılarak yapılmış bi F (Fonksiyon Tuşları ) kullanım örneği var.

Benim sorunum StdModul isimli modül içindeki kodlarla...
MsgBox " F1 basıldı " şeklinde ayarlanmış olan tuşlara MsgBox yerine ExcelVBANet isimli Formdaki CommandButton1'e bağlamak istiyorum. Bağlama şekli ;

Call ExcelVBANet.CommanButton1_Click

şeklinde değiştirdim ama olmadı. Aklıma başka bir yöntemde gelmiyor.

Fonksiyon Tuşlarını CommanButtonlara bağlamamda yardımcı oluranız çok sevinirim

 

[turan1971]

Commandbutton ile tetikleyeceğiniz kodu modül altına bir Sub'a yazarsanız sanırım istediğiniz olur. Aşağıda Commandbutton1'ede bassanız, F2 tuşunada bassanız aynı Sub çalışacağından istediğinizi yapmış olursunuz...


FORM ALANINA
Private Sub CommandButton1_Click()
ftusbasma
End Sub

MODÜL ALANINA
Public Sub ftus()
KeyCode = evnTus
Select Case KeyCode
Case Is = evnF1

Case Is = evnF2
ftusbasma
Case Is = evnF3
MsgBox "F3 bastınız"
.
.
.
End Select
End Sub

Sub ftusbasma()
MsgBox "Commandbutton1 tetiklendi"
End Sub

 

[efeksk]

Hocam dediğiniz gibi yaptım ama olmadı Siz bi düzenleseniz örnek üstünde zahmet olmaz sa

 

[efeksk]

hocam çok sağol oldu.

Call ftusbasma

ekledim koda çalıştı

 

[efeksk]

Hocam ufak bi sorun daha var...

Mesela Ben ExcelVBANet de bulunan CommandButton1'e kaydet kodları yazdım... Bunu Modülde nasıl tanımlayacağım ?

 

[turan1971]

Hocam dediğiniz gibi yaptım ama olmadı Siz bi düzenleseniz örnek üstünde zahmet olmaz sa

Dosyanız ekte...

 

[turan1971]

Hocam ufak bi sorun daha var...

Mesela Ben ExcelVBANet de bulunan CommandButton1'e kaydet kodları yazdım... Bunu Modülde nasıl tanımlayacağım ?

CommandButton1'e kaydet ne demek?

 

[efeksk]

yani şöyle açıklayayım hocam...

ExcelVBANet Formunda ki CommandButton1'i TextBoxlara girilen verileri kaydetmek üzere kodlamış olduğumuzu varsayalım. Formun Kod sayfasında

Private Sub CommanButton1_click()

olayına TextBoxlara girilen verileri kaydetmek üzere kod yazdığımızı düşünelim. Şimdi ben CommandButton1'e F1 ile nasıl bağlantı kurabilirim onu demek istemiştim :biggrin:
Bu arada Not etmekte fayda var...
Dosyada sadece bir adet UserForm yok. Yani birden fazla UserForm var. ve diğer UserFormlarda da CommandButton lar var. Ben sadece belirtilen userformdaki commandbutton un çalışmasını istiyorum.

 

[efeksk]

Çözüm Yokmu millet