Aşağıdaki kodda msgbox yazan satır yerine çalışacak kodları yazmanız yeterlidir.
[vb:1:eb4a3fb22a]Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 113 Then
MsgBox "merhaba"
End If
End Sub[/vb:1:eb4a3fb22a]
sayın leventm,
verdiğiniz kodu userforma ekledim. Ama herhangi bir sonuç elde edemedim.
Ama userform çalıştığında textbox aktif hale geliyor. Çalışmamasına bunlar neden olabilir mi?
tşk.
size bir soru daha sorabilir miyim?
benim bu işlemi userformda işlem yaparken herhangi bir textbox veya herhangi bir combobox üzerinde iken tek bir komut ile yaptırmam mümkün mü? her textbox un özelliğine veya comboboxun özelliğine yazmadan tek bir komutla yazmam mümkün mü?
Sanıyorum bunun için class module kullanmak gerekiyor, fakat bu konudada bilgi sahibi değilim. Bu durumda her nesnenin keydown olayına ilgili kodları yazmalısınız.
Sub tarihat()
'
' tarihat Makro
' Makro ccc tarafından 26.10.2005 tarihinde kaydedildi.
'
' Klavye Kısayolu: Ctrl+ç
'
ActiveCell.FormulaR1C1 = Date
Application.OnKey "{F4}", "tarihat"
End Sub
vay be ben de yaptım sonunda...... kendimi tebrik ediyorum.
ex(el web tr yi tebrik etmemek olur mu?
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.