Soru Escape İle Userformu Kapatma

[dengeceteris]

Sevgili Arkadaşlar herkese iyi günler dilerim.
Soru başlığı ile ilgili hem bu sitede hem de başka forumlarda konular var. Ancak uygulamak noktasında zorlandığım için yazmak zorunda kaldım. (Benzer konu ile meşgul etmek istemezdim. Aşağıda vermiş olduğum kod ile her bir sayfamın 1. satırında userformu açıyorum. 1. satır harici bir yere tıklayınca ise userform otomatik olarak kayboluyor. Aynı zaman da sayfalar sağa ve aşağıya çok yer kapladığı için birde renklendirme ekledim. Buna bir de ESC ile kapatma eklemek istiyorum ama bir türlü entegre edemedim. Mesele userform üzerine bir CommanButton ekledim Bunun içine de bulduğum kodları yazdım ama çalışmadı maalesef. Yardımcı olabilecek uzman arkadaşlara şimdiden tşk ederim.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 2 Then Exit Sub
If Target.Row = 1 Then
UserForm1.Show 0
Else
Unload UserForm1
End If
Cells.Interior.ColorIndex = xlColorIndexNone
ActiveCell.EntireColumn.Interior.ColorIndex = 19 'Sütun Rengi
ActiveCell.EntireRow.Interior.ColorIndex = 17 ' Satır Rengi
ActiveCell.Cells.Interior.ColorIndex = 4 ' Hücre Rengi
End Sub

 

[Muzaffer Ali]

Merhaba.
Form üzerinde bulunan bütün kontrollerin hepsinin KeyDown olayına aşağıdaki gibi kod yazmalısınız.

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

Buradaki mantık şu; form üzerinde hangi kontrol seçili ise KeyDown(Klavye tuşuna basma olayı) çalışsın ve içindeki kodu çalıştırsın.
Form üzerinde kaç tane kontol varsa hepsine bu kodu eklemeniz gerekir.
Örneğin TextBox nesneleri de varsa onlarında hepsine aşağıdaki gibi eklemelisiniz.

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

 

[dengeceteris]

Üstadım; bu kodları biliyordum ama bütün nesneler için tek tek yazılması gerektiğini öğrenmiş oldum. Sonuç aldım, çok tşk ederim

 

[Muzaffer Ali]

Rica ederim. İyi çalışmalar.