Commandbutonun alt seçeneği ile userformu da kapatmak

[gravity80]

Merhaba.

Umarım sorunumu eksiksiz anlatabilir ve beklediğim yardımı alabilirim.

Burada, yapay zeka sitelerinde ve başka yerlerde aradım, varsa da cevabını bulamadım.

Yanlışlık olmaması adına, tüm adımları, kullandığım isimlerle beraber paylaşıyorum.

1)Kod ekranına girdim ve bir user form ekledim. (formun ismi UserForm1)

2)Standart toolbox ile yeni bir command buton ekledim. (Buton ismi CommandButton1)

3)CommandButton1'e şu kodu yazdım

Private Sub CommandButton1_Click()
MsgBox "Formdan çıkılsın mı", vbYesNo
End Sub

3)Excel arayüzünde, ActiveX denetimleri ile yeni bir buton ekledim, butonun kendi ismi open_form, içindeki etiketi formu aç diye değiştirdim.

Bu butona da kod olarak, VBA arayüzünde oluşturduğum ve CommandButton1'i de içeren formu aç kodunu ekledim.

Kodu da aşağıda paylaşıyorum.

Private Sub open_form_Click()
UserForm1.Show
End Sub

4)Active X düğmesini tıkladığımda, Userform1 açılıyor. Formda CommandButton1 var, butona tıkladığımda da Formdan çıkılsın mı (evet ve hayır butonları var)

diye soruyor.

Evet düğmesine de tıklasam, hayır düğmesine de tıklasam tekrar Userform1'e dönüyorum.

Sorum şu: Hayıra tıkladığımda beni Userforma yönlendirsin, ama Evete tıklarsam, evet/hayır butonlarının olduğu kısmı, arkasından da Userform1'i

kendiliğinden kapatsın.

Yardımı dokunacak arkadaşa, söz veriyorum Exceli her açtığımda dua edeceğim. (exceli sık sık açarım bu arada)

Saygılar.

 

[CengizYurek]

Private Sub CommandButton1_Click()
Dim sor As Integer
sor = MsgBox("Formdan Çıkılsın mı ?", vbYesNo + vbQuestion, "ONAY")
If sor = vbNo Then
    Unload Me
End If
End Sub

Dener misiniz ?

 

[gravity80]

Yardım için çok teşekkür ediyorum.

Ancak, yapmaya çalıştığım konuda farklı bir olay ortaya çıktı; söyleki:

Kodu, aşağıdaki gibi yazarsam, evete bastığımda form kapanıyor, hayıra bastığımda ise kapanmıyor, burada sorun yok.

Private Sub yeni_sorgu_Click()
Dim sor As Integer
sor = MsgBox("USERE FORMU KAPAT ?", vbYesNo + vbQuestion, "ONAY")
If sor = vbYes Then
Unload Me
End If
End Sub

Ancak, normalde ben bu formu açtığımda, veri girişini yapmak için mouse ile bir yer seçmek istemiyorum, form açıldığında hiç bir yere tıklamadan,

klavyeden bir şey yazdığımda (arka planda, bir sorgu yaparak karşılığını bulan bir eşleşme formülü var), hali hazırda bu şekilde çalışıyor

O yüzden evete bastığımda form kapansın ama hayıra bastığımda ise formu kapatsın buna karşılık yeniden açsın. (böylelikle veri girişi yapılacak yer

için bir tıklama yapmayacağım, direk klavye girişi olacak)

Kodu aşağıdaki gibi değişritiyorum ama hata veriyor.

Private Sub yeni_sorgu_Click()
Dim sor As Integer
sor = MsgBox("USERE FORMU KAPAT ?", vbYesNo + vbQuestion, "ONAY")
If sor = vbYes Then
Unload Me
If sor = vbNoThen
Unload Me
User_form.show
End If
End Sub

Bir yerde bir hata var ama işin içinden çıkamadım.

 

[antonio]

Merhaba,
Userform1 üzerine yerleştirdiğiniz "CommandButton1" Click kodlarını aşağıdaki şekilde değiştirerek deneyiniz:

Private Sub CommandButton1_Click()
Dim karar As VbMsgBoxResult
karar = MsgBox("Formdan çıkılsın mı", vbYesNo, "karar ver")
If karar = vbNo Then Exit Sub
Unload Me
End Sub

 

[gravity80]

teşekkür ederim.