Userform'da Kapat butonu

[etobus]

Merhaba,

Ben userform'a koydugum kapat butonuna bastigimda Sayfayi ve acik olan tum userformlari kapatmasini istiyorum. Bunu nasil yapabilirim? Fakat kapatirken acik olan mevcut sayfayi otomatik olarak kaydetmeden cikmasini istiyorum.

Tesekkurler

 

[Kemal Demir]

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Unload Me
ThisWorkbook.Save
ThisWorkbook.Close
End Sub

Zannedersem İşini görür.

 

[xxrt]

.......tum userformlari kapatmasini ....

For i = UserForms.Count - 1 To 0 Step -1
Unload UserForms(i)
Next

 

[rabbace]

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Unload Me
ThisWorkbook.Save
ThisWorkbook.Close
End Sub

Zannedersem İşini görür.

Merhaba,

Ben butona bu kodları eklediğimde, kapat butonuna bastığımda açık olan tüm excelleri kapatıyor. Sadece userformun bağlı bulunduğu exceli kapatmasını nasıl sağlayabilirim?

 

[cems]

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Unload Me
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub

Şeklinde dener misiniz?

 

[Seyit Tiken]

Bu şekilde kendinize uyarlayınız.

Workbooks("TEST.XLSM").Close

 

[rabbace]

Bu şekilde kendinize uyarlayınız.

Workbooks("TEST.XLSM").Close

İlginize teşekkür ederim, denedim fakat yine aynı şekilde oldu.

Emin değilim fakat

Başlangıçta Userform'u açıp, Excel'i gizlemek için kullandığım koddan kaynaklı olabilir sanırım.

Dosyayı ekte paylaşıyorum, inceleyebilir misiniz?

Bilgisayarınızda kaydetmediğiniz bir excel açıksa, kapat butonuna basınca onu da kapatıyor, incelerken dikkat ediniz.

Teşekkürler.

 

[iso3820]

ThisWorkbook.Save
Excel.Application.Quit

kaydeder ve kapatır..arka plandaki excelde kapanır.