Gönderen Konu: Kapat Makrosu Hatası  (Okunma sayısı 73 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı katip16487

  • Excelce Onbaşı
  • **
  • İleti: 14
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: AHMET REVAN KULA
  • Doğum Yılınız: 1980
  • İl / İlçe: TRABZON / MERKEZ
  • İşletim Sisteminiz: Windows 7 Home Premium
  • Mesleğiniz: MÜDÜR
  • Office Versiyonunuz: 2003 -2007
Kapat Makrosu Hatası
« : 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...

Çevrimdışı Orion1

  • Excelce Teğmen
  • ****
  • İleti: 351
  • Puan +10/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Evren Gizlen
Ynt: Kapat Makrosu Hatası
« Yanıtla #1 : 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: