Soru Userformdan Çıkış Hakkında

[Hsn55]

İyi günler;
Ekli dosyada Userformu kapatınca (x) tekrar excel sayfası çıkıyor. Benim yapmak istediğim userformdan x ile çıkınca dosyayı kayıt yaparak tamamen dosyadan çıkması (excel sayfası görünmeyecek). Şimdiden yardımlarınız için çok teşekkür ederim.

İndir Dava 2022

Dosyayı indir Dava 2022

dosya.co

 

[Hsn55]

Merhabalar;
Konuya yardımcı olur sanız sevinirim

 

[Mdemir63]

Selamlar

Aşağıdaki kodu
Userform üzerinde KAPAT isimli buton oluşturun ve Click olayına yapıştırıp Deneyiniz.

  If MsgBox("Uygulamayı Kapatmak istiyor musunuz?", vbInformation + vbYesNo, "DİKKAT") = vbYes Then
    ActiveWorkbook.Save
    Unload Me
    Application.Quit
  End If

 

[Hsn55]

Userform a mı uygulayacağım hocam?

 

[Mdemir63]

Siz nereye uygulamak istiyorsunuz?

 

[Hsn55]

Userform x basınca Excel sayfasını görmeden kayıt yaparak çıkacak

 

[Mdemir63]

Selamlar

Userform a çift tıklayın

aşağıda ki kodu yapıştırıp deneyiniz.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  If MsgBox("Uygulamayı Kapatmak istiyor musunuz?", vbInformation + vbYesNo, "DİKKAT") = vbYes Then
    ActiveWorkbook.Save
    Unload Me
    Application.Quit
  End If
End Sub