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