• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Otomatik kaydet ve kapat makrosu

Katılım
3 Şubat 2006
Mesajlar
57
Değerli, üstadlar

bu maktro ile çalıştığım excel dosyası ben kaydet yaptıktan sonra belirlenen zamanda kapanıyor. Ancak; ben istiyorum ki, ben kaydet tuşuna basmasam bile belirlenen zamanda kaydet yapıp, kapatsın. Ve de sadece bu dosya kapansın. Başka bir excel dosyası kapanmasın. Çalıştığım Dosya Adı: "uretim2003"

Sub KAPAT()
ActiveWorkbook.Save
Application.Quit
End Sub


Private Sub Workbook_Open()

End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.OnTime Now + TimeValue("00:02:00"), "KAPAT"
Exit Sub
End Sub
 
Geri
Üst