Userformun ESC tuşu ile kapatılması

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,030
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Değerli Arkadaşlar

Bir userformun kapatılmasının sadece klavyedeki ESC tuşu ile yapılması ile ilgili kod önerilerinizi rica ediyorum.

teşekkürler.
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,270
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
@leventm;

Ekli örnek dosyayı inceleyiniz.
 
X

xxrt

Misafir
Bende nesnelerin keyPress özelliğini düşünmüştüm.Budaha pratikmiş.
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,030
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Sn Raider

Çok teşekkür ederim. Tam istediğim gibi olmuş
 

Zeki Gürsoy

Uzman
Uzman
Katılım
31 Aralık 2005
Mesajlar
4,225
Excel Vers. ve Dili
Office 2019 (64 bit) - Türkçe
Merhaba,
Aşağıdaki kodlarla boş bir userform Esc ile kapatılıyor, ancak nesne eklendiğinde
kodlar çalışmadı. Nesnelerden kaynaklanan durum olabilir mi?

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 27 Then Unload Me
End Sub
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,030
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Çünkü userformu aktif hale getirdiğinizde imleç ilk nesneye odaklanıyor. Bu durumda da odaklandığı nesnede userformun keydown olayının çalışmasını engelliyor. Aslında bu işin en kolay yolu userform üzerine yerleştireceğiniz ve içine "unload me" komutunu yazacağınız bir commandbuttonun properties pencerindeki "cancel" özelliğini "true" yapmanızdır. Bu durumda ESC tuşuna bastığınızda userform kapanacaktır.
 

Zeki Gürsoy

Uzman
Uzman
Katılım
31 Aralık 2005
Mesajlar
4,225
Excel Vers. ve Dili
Office 2019 (64 bit) - Türkçe
Teşekkürler leventm önerinizle sorun çözüldü. :D
 
Üst