Excel çalışma kitabını bir türlü kapatamadım.

[mehoaga]

Değerli arkadaşlarım;
Excel dosyasında userformla çalışan bir programım var. Userformu X dan kapattığım zaman arka planda excel sayfası açık kalıyor. Bana kaydet veya kaydetme diye soruyor. Evet dersem excel o zaman kapanıyor. Ben istiyorumki Userformu kapattığımda hem excel çalışma kitabını kaydetsin ve kapatsın. Yani bana bir şey sormasın.
Userformun kapat kısmına;
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ActiveSheet.[A1].Value = Now
Unload Me
ThisWorkbook.Save
ThisWorkbook.Close
End Sub

Yazdım ama program kapanıyor ve excel sayfalarıda kapanıyor ama excel çalışma kitabı hala açık kalıyor. Bu konuda yardımlarınızı rica ediyorum.

 

[leguminosea]

Userform kod bölümüne yapıştırın.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    ad=ThisWorkbook.Name
    Application.DisplayAlerts = False
    ActiveSheet.[A1].Value = Now
    Unload Me
    ThisWorkbook.Save
    a = Workbooks.Count
If a = 1 Then
        Application.Quit
    Else
       Windows(ad).Close
End If
End Sub

 

[mehoaga]

Sayın leguminosea
Değerli yanıtınız için tşk ederim. Yalnız ad ve a harfi hata verdi.

 

[YUSUF44]

Ben olsam bu yöntemi kullanmazdım. Açık excel dosyalarının başka bir dosya tarafından kapatılması bence iyi bir özellik değil. Gerçi sayın leguminosea bunu düşünerek sanıyorum açık dosya sadece bir taneyse exceli kapattırmış bu örnekte ama genelde gördüğüm uygulamalar tüm excelin kapatılması şeklinde. Böyle dosyalarla çalışmaktan hiç hoşlanmıyorum. Tercih sizin elbette.

 

[mehoaga]

Sayın YUSUF44 yanıtınız için tşk ler. Yalnız açıkta olan bir sürü dosyam olmadığı için zorlandım. Aslında bilene kolay gelir ama ne yaptıysam bir türlü çalışma kitabını kapatamadım. Aslında Userformu kapatıyorum sayfalarda kapanıyor ama çalışma kitabı hala açık ben X dan kapatıyorum mecburen. Böyle oluncada yol uzuyor.. Zaten leguminosea ' nın verdiği yanıt işimi görecekti ama dediğim gibi ad ve a harfinde hata verdi.

 

[leguminosea]

sayın @mehoaga
kod bende sorunsuz çalışıyor.
örnek dosya ekte.

Hata indir

Hata

www.dosyaupload.com

 

[mehoaga]

Sayın
leguminosea sizin dosyanızı indirdim ve çalıştırdım. Sizinkinde sorunsuz çalışıyor ama benim Excel 2003 versiyonu olduğundan mı nedir dediğim gibi ad ve a harflerinde hata verdi. Verdiğiniz yanıt için tşk ederim.

 

[Korhan Ayhan]

Kodlarınızın en başında Option Explicit varsa bu değişkenleri tanımlamanız gerekir.

Dim a As Byte, ad As String

 

[mehoaga]

Sayın Korhan Ayhan Hocam;
Şimdi oldu valla Size ve bana yardım eden herkese çok tşk ediyorum. Allah yar ve yardımcınız olsun.