kapat butonu ile excelden çıkış

[arifbirgen]

Değerli arkadaşlar
Örnek dosyadaki userform üzerinde multi page,multi page üzerinde de frame
bulunmakta.KAPAT butonu ile excelden çıkımak istiyorum.Butona çıkış makrosu hakkında yardımcı olursanız memnun olurum.

 

[Ferhat Pazarçevirdi]

Excel'den çıkış komutu, Application.Quit dir. Ama daha önce, açık çalışma kitaplarının kaydedilip edilmeyeceğini belirlemelisiniz.

 

[isakarakus]

Şunu kullanabilirsiniz.

Sub Kapat()
'Kaydedilmiş kabul et.
ThisWorkbook.Saved = True
'Başka dosya açık değilse exceli kapat.
If Application.Workbooks.Count = 1 Then
Application.Quit

'başka dosya açıksa sadece dosyayı kapat.
Else
ThisWorkbook.Close

End If
End Sub

 

[arifbirgen]

sn.hocam Ferhat Pazarçevirdi
Öncelikle cevap verdiğinix için çok teşekkür ederim.Örnekteki kapat
butonunda sorun yok,kapanıyor.Fakat ayrı hazırladığım çalışmamdaki kapat
butonu çalıştırdğımda sayfa üzerinde değişiklik kayıt edilsinmi edilmesin mi mesajı çıkmakta.Cevabında bu durumu belirtmişsiniz.Mesaj sorulmadan kapanmasını nasıl halledebilirim.Cevap verirseniz memnun olurum.

 

[arifbirgen]

sn. hocam İsakarakuş
Cevap verdiğiniz için çok teşekkür ederim.Uyguladım
tam istediğim gibi oldu.İyi çalışmalar.