User Formun Escape ile iptali

[siar]

Herkese merhabalar,

Kullanmakta olduğum bir user forma "Escape" tuşuyla iptal ve user formdan çıkış komutunu nasıl ilave edebilirim. Teşekkürlerimle..

 

[Mahmut Bayram]

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

 

[siar]

Maalesef verdiğiniz örnek çalışmadı, ekte belgemin örneğini bulabilirsiniz. Şimdiden teşekkür ederim

 

[Levent Menteşoğlu]

Bu işlemin 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" yapmaktır. Bu durumda ESC tuşuna bastığınızda userform kapanacaktır.

Ekli dosyayı inceleyin.

 

[siar]

merhaba sn.levetm,
takvim çalışmanızı belgemde kullanırken, unload me uygulaması çıkmıyor. sadece takvim kısmı ekrana geliyor.

 

[Mahmut Bayram]

UserFormda sadece şu kodlar kalsın.

Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
ActiveCell.NumberFormat = "dd.mm.yy"
Columns(ActiveCell.Column).EntireColumn.AutoFit
Unload Me
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub

 

[geren36]

userform açılırken yüksekliğini 176.25' e ayarlamışsınız bu yüzden levent beyin eklediği commandbutton u göremiyorsunuz.

Aşağıdaki bölümde yer alan [ 176.25 ]değerini 210 yapınız lütfen...



Private Sub UserForm_Activate()
For a = 0 To 210 Step 0.05
DoEvents
Me.Height = a
Next
End Sub

 

[siar]

teşekkür ederim şimdi nerede hata yaptığımı gördüm.