Excel Sayfam Tam Kapanmıyor

[gardas58]

Çalışma kitabıma bir kaydet ve kapat makrosu ekledim ancak hata nerde anlayamadım çünkü tam kapanmıyor. Çalışma kapandığı halde Exell kitabı açık kalıyor. Kullandığım makro aşağıda:

Sub kapa()
MESAJ = MsgBox("ÇIKMAK İSTEDİĞİNİZDEN EMİNMİSİNİZ", vbYesNo)
If MESAJ = vbNo Then Exit Sub
MsgBox "PROGRAM KAPATILACAK", vbInformation, " U Y A R I"
ActiveWorkbook.Save
ActiveWorkbook.Close
Exit Sub
End Sub

 

[Levent Menteşoğlu]

Excelin açık kalması doğal çünkü kodlarınız sadece çalışma kitabını kapatıyor. Exceli kapatmak için kodlarınızın en sonuna aşağıdaki satırı ilave edin.

application.quit

 

[gardas58]

Excelin açık kalması doğal çünkü kodlarınız sadece çalışma kitabını kapatıyor. Exceli kapatmak için kodlarınızın en sonuna aşağıdaki satırı ilave edin.

application.quit

Sayın hocam verdiğiniz kodu en sona ekledim. Ancak olmadı ve bahsettiğim kapanmama problemi devam ediyor. Sizde görün dosya ekte

 

[Levent Menteşoğlu]

Kodu aşağıdaki gibi kullanın.

Sub kapa()
MESAJ = MsgBox("ÇIKMAK İSTEDİĞİNİZDEN EMİNMİSİNİZ", vbYesNo)
If MESAJ = vbNo Then Exit Sub
MsgBox "PROGRAM KAPATILACAK", vbInformation, " U Y A R I"
ActiveWorkbook.Save
application.quit
End Sub

 

[gardas58]

İşlem tamam

Kodu aşağıdaki gibi kullanın.

Sub kapa()
MESAJ = MsgBox("ÇIKMAK İSTEDİĞİNİZDEN EMİNMİSİNİZ", vbYesNo)
If MESAJ = vbNo Then Exit Sub
MsgBox "PROGRAM KAPATILACAK", vbInformation, " U Y A R I"
ActiveWorkbook.Save
application.quit
End Sub

Çok Teşekkürler sorunum çözüldü.