Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: katip16487 - 08 Ekim 2018, 15:45:26

Başlık: Kapat Makrosu Hatası
Gönderen: katip16487 - 08 Ekim 2018, 15:45:26
Sub Auto_Close()
Unload anasayfa
    Sheets("verigiris").Select
    ActiveWorkbook.Save
    Dim WScript As Object
        Set WScript = CreateObject("WScript.Shell")
        X = WScript.popup("Belgeniz kaydedilmiştir, kolay gelsin. Hakim Ahmet Revan KULA", 1, "KAPATMA UYARISI")
    Application.Quit
End Sub

şeklinde kullanmakta olduğum KAPAT makrom bulunmakta. Ancak makro çalıştığı zaman POPUP olarak belirlediğim yazı ekrana 2 defa gelmektedir.

Amacım, ÇARPI işareti kullanılmaksızın programdan EXCEL dosyasını kapatmak suretiyle kendiliğinden çıkış yapmasıdır.
POPUP zaten 1 saniye kadar çalışmaktadır.

Hatayı giderebilirseniz sevinirim.

Saygılarımla...
Başlık: Ynt: Kapat Makrosu Hatası
Gönderen: Orion1 - 12 Ekim 2018, 23:37:54
VBE de Bu çalışma kitabı içinde Workbook_BeforeClose olayında kod var büyük ihtimalle.
O olayın içindeki kodları silerseniz sorun biter.:cool: