SORU ve CEVAPLAR (Yazılabilir) > Microsoft Excel, Vba, Makro, Formül vb. Soruları

Kapat Makrosu Hatası

(1/1)

katip16487:
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...

Orion1:
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:

Navigasyon

[0] Mesajlar