Çıkışta otomatik kaydet

[mtbi00]

Merhaba,

Yaptığım excel dosyasında çıkış için bir buton koydum. Butona basıldığında sayfayı kaydedip başka bir excel dosyası açık değilse exceli, açıksa sadece syafayı kapatmasını istedim. Yani kullanıcıya kaydet diye sormasın, her halikarda sayfayı kaydedip çıkmasını istedim. Yazdığım kod aşağıdaki gibidir ama her zaman kaydedeyim mi diye soruyor. Artı evet dediğimizde çok uzun bir süre bekliyor kaydetmek için. Nerede yanlış yapıyorum anlamadım. Yardımlarınız rica olunur.

Private Sub CommandButton1_Click()
Unload Me
With ActiveWindow
.DisplayWorkbookTabs = True
End With
Application.ScreenUpdating = True
Application.Visible = True
kapa = True
If Workbooks.Count = 1 Then
ActiveWorkbook.Save
'ThisWorkbook.Close
Application.Quit
Else
ActiveWorkbook.Save
ThisWorkbook.Close
End If
End Sub

 

[Tevfik_Kursun]

Merhaba Arkadaş,

Sub Kapat()
    ActiveWorkbook.Save
    Application.DisplayAlerts = False
    Application.Quit
End Sub

Bu işinizi görür diye düşünüyorum.
Kolay gelsin

 

[mtbi00]

Tevfik hocam ilginden dolayı teşekkür ederim, Displayalerts komutunu ekleyince düzeldi. Çok sağol.