KAPAT butonunda tekrar hatası.

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

 

[Muzaffer Ali]

Prosedür adını değiştirirseniz sorun düzelir.
Sub Auto_Close() yerine Sub Kapat() yazabilirsiniz.

Not: Bir prosedür ismi Sub Auto_Close() olursa dosyayı kapattığım zaman bu prosedür altındaki kodları otomatik çalıştır komutu vermiş oluyoruz. Bu yüzden siz kapatınca bu kodlar ikinci kez çalışıyor.
Bir prosedüre Sub Auto_Close() ismi verirseniz dosya kapandığında otomatik çalışır.
Bir prosedüre Sub Auto_ Open() ismi verirseniz dosya açıldığında otomatik çalışır.

 

[Zeki Gürsoy]

Aynı kod, "WorkBook_BeforeClose()" olayı altında da olabilir.
"Auto_Close" ve "Before_Close" sırayla çalışır.

 

[katip16487]

İlginize teşekkürler, söylediğiniz şekilde Auto_Close altına yazdığım kod başka bir kodla ilişkili olduğu için aynı kodu 2 defa çalıştırıyormuş.

Auto_Close ismini programdancikis yapınca sorun çözüldü.

Teşekkürler...