Exceli kapatırken makro otomatik çalışsın

[muratti60]

Selamlar;
Ben içinde çalışmalarım olan bir excelimi kapatırken yani sağ üst köşeden kapama tuşuna bastığımda değişiklik yaptıysam bana sormadan otomatik olarak kaydedip ve banada kapatılıyor , tekrar görüşmek dileğiyle türünden bir not çıkararak dosyamı kapatan bir makro yapmak istiyorum. Dediğim gibi bu makro exceli kapadığım zaman otomatik olarak çalışacak. Çok uğraştım yapamadım, yardımlarınızı bekliyorum. Saygılarımla..

 

[dEdE]

Merhaba,
Aşağıdaki kodu bir modüle yapıştırıp dener misiniz?

Sub auto_close()
ActiveWorkbook.Save
MsgBox "Kapatılıyor , tekrar görüşmek dileğiyle... "
ActiveWorkbook.Close True
End Sub

 

[muratti60]

olmadı galiba

verdiğiniz kodu dosyama ekledim kaydettim çıkıp tekrardan girdim ve bazı veriler ekledim dosyama, kapama tuşuna bastığımda dosyayı kaydedip kaydetmeyeceğimi sordu, ama kendisi otomatik kaydetmesini istiyordum ben kaydet dediğimde ise ekteki gibi bir uyarı çıktı tekrardan.

 

[dEdE]

Merhaba,
Ekli dosyayı inceler misiniz?

 

[muratti60]

göndermiş olduğunuz dosya sorunsuz çalışıyor tam istediğim gibi, fakat aynı kodları verdim ben benim sayfamda olmuyor, benim yaptığımıda ekte gönderiyorum

 

[dEdE]

Kodu Sayfanın kod bölümüne değil Modüle yazmalısınız.

 

[muratti60]

epeydir çabalayıp yapamamamın sebebi belli oldu sonunda, özür dileyerek soracam size modülü nasıl açacaz, ayrıca ilginiz için çok teşekkür ederim.

 

[dEdE]

Merhaba,
Excel sayfasında Alt+F11 ile VBA editörünü açıp, Menüden Insert/Module seçilir.

 

[muratti60]

yardımlarınız için çok teşekkür ederim çok işime yaradı verdiğiniz bilgiler fakat benim yaptığım örnekte dosyayı kapatırken ekteki gibi bir uyarı çıkıyor bunun nedeni nedir acaba bakabilirmisiniz.

 

[dEdE]

Merhaba,
Bu uyarı kullandığınız Excel versiyonunun bir özelliği sanırım. Ben 2003 versiyon kullandığım için bu uyarının excel ayarlarından nasıl kapatılacağını(kapatılıp/kapatılamayacağını) bilmiyorum.
Ancak kodu aşağıdaki gibi değiştirerek (koyu satırları ekleyerek) bu uyarı kapatılabilir.
Hoşçakalın.

Sub Auto_Close()
   [B] Application.DisplayAlerts = False[/B]    
    ActiveWorkbook.Save
    MsgBox "Dosyanız Ototmatik Olarak Kaydediliyor", , "KAPANIYOR"
    MsgBox "TEKRAR GÖRÜŞMEK DİLEĞİYLE"
    ActiveWorkbook.Close True
  [B]  Application.DisplayAlerts = True[/B]
End Sub

 

[muratti60]

merhaba;
verdiğiniz kodlar işe yaradı. İlginiz ve alakanıza çok teşekkür ederim, sağolun. Görüşmek dileğiyle.

 

[theredcloud]

Merhaba,
Bu uyarı kullandığınız Excel versiyonunun bir özelliği sanırım. Ben 2003 versiyon kullandığım için bu uyarının excel ayarlarından nasıl kapatılacağını(kapatılıp/kapatılamayacağını) bilmiyorum.
Ancak kodu aşağıdaki gibi değiştirerek (koyu satırları ekleyerek) bu uyarı kapatılabilir.
Hoşçakalın.

Sub Auto_Close()
   [B] Application.DisplayAlerts = False[/B]    
    ActiveWorkbook.Save
    MsgBox "Dosyanız Ototmatik Olarak Kaydediliyor", , "KAPANIYOR"
    MsgBox "TEKRAR GÖRÜŞMEK DİLEĞİYLE"
    ActiveWorkbook.Close True
  [B]  Application.DisplayAlerts = True[/B]
End Sub

Yine başarılı ve yine yararlı bir çalışma sayın dEdE. Tebrikler ve teşekkürler.