Excel Çalışmasının Belirli Zamanlarda Kapanması

mustafa1207 · 05-02-2012, 18:10

Sevgili Korhan Hocamın çalışması olan aşağıdaki kodlarda belirli zamanlarda dosya kapatılabiliyor. Uğraştım ama muvaffak olamadım. Bunu zaman aralığında olacak şekilde nasıl yapabiliriz. Yani 20:00 ile 21:20 arası gibi.

Option Explicit

Private Sub Workbook_Open()
Başla:
DoEvents
Select Case Format(Time, "hh:mm")
Case Is = "10:00": DOSYA_KAPAT
Case Is = "12:00": DOSYA_KAPAT
Case Is = "14:00": DOSYA_KAPAT
Case Is = "16:00": DOSYA_KAPAT
Case Is = "20:00": DOSYA_KAPAT Case Else: GoTo Başla:
End Select
End Sub

Sub DOSYA_KAPAT()
ThisWorkbook.Save
MsgBox "Dosyanız otomatik kapanmaya ayarlanmıştır." & vbCrLf & "Dosyanız kapatılacaktır.", vbInformation
If Excel.Application.Windows.Count > 1 Then
ThisWorkbook.Close
Else
Application.Quit
End If
End Sub

mustafa1207 · 05-02-2012, 21:56

Sorumu güncellemek istiyorum.

**Orion1** · 05-02-2012, 22:05

İlgili yere aşağıdı kodları koyarak deneyiniz.

Kod:

mustafa1207 · 05-02-2012, 22:26

Hocam çok teşekkürler ilginiz için. Ancak yapamadım.Eğer imkanınız varsa dosya ekliyorum üzerinde yapabilirmisiniz ?

**Orion1** · 05-02-2012, 22:42

Alıntı:

mustafa1207 tarafından gönderildi

Hocam çok teşekkürler ilginiz için. Ancak yapamadım.Eğer imkanınız varsa dosya ekliyorum üzerinde yapabilirmisiniz ?

Dosyanız ektedir.

mustafa1207 · 05-02-2012, 23:00

Hocam çok teşekkür ediyorum. Sorunsuz çalışıyor. Tekrar teşekkürler ve hayırlı geceler diliyorum.

05-02-2012, 18:10	#1
mustafa1207 Giriş: 10/02/2011 Şehir: ISPARTA Mesaj: 410 Excel Vers. ve Dili: office 2003	Excel Çalışmasının Belirli Zamanlarda Kapanması Sevgili Korhan Hocamın çalışması olan aşağıdaki kodlarda belirli zamanlarda dosya kapatılabiliyor. Uğraştım ama muvaffak olamadım. Bunu zaman aralığında olacak şekilde nasıl yapabiliriz. Yani 20:00 ile 21:20 arası gibi. Option Explicit Private Sub Workbook_Open() Başla: DoEvents Select Case Format(Time, "hh:mm") Case Is = "10:00": DOSYA_KAPAT Case Is = "12:00": DOSYA_KAPAT Case Is = "14:00": DOSYA_KAPAT Case Is = "16:00": DOSYA_KAPAT Case Is = "20:00": DOSYA_KAPAT Case Else: GoTo Başla: End Select End Sub Sub DOSYA_KAPAT() ThisWorkbook.Save MsgBox "Dosyanız otomatik kapanmaya ayarlanmıştır." & vbCrLf & "Dosyanız kapatılacaktır.", vbInformation If Excel.Application.Windows.Count > 1 Then ThisWorkbook.Close Else Application.Quit End If End Sub Bu mesaj en son " 05-02-2012 " tarihinde saat 18:51 itibariyle mustafa1207 tarafından düzenlenmiştir....

05-02-2012, 22:05	#3
Orion1 Uzman Giriş: 01/03/2005 Mesaj: 15,452 Excel Vers. ve Dili: Win7 Home Basic TR Ofis-2010-TR	İlgili yere aşağıdı kodları koyarak deneyiniz. Kod: dim saat as date saat=Format(Time, "hh:mm") if saat >= timevalue("20:00:00") and saat <= timevalue("21:20:00") then DOSYA_KAPAT else goto Başla end if __________________ Bir sümer atasözü; Madem biliyorsun neden öğretmiyorsun.Boşa vakit geçirdin neye yaradı. SALLAN AMA YIKILMA

Konu Araçları
Yazıcı Çıktısını Göster Sayfayı E-posta ile Yolla
Görünüm Modları
Düzenli Mod Karışık Moda Geç Konu Moduna Geç

05-02-2012, 21:56	#2
mustafa1207 Giriş: 10/02/2011 Şehir: ISPARTA Mesaj: 410 Excel Vers. ve Dili: office 2003	Sorumu güncellemek istiyorum.

05-02-2012, 23:00	#6
mustafa1207 Giriş: 10/02/2011 Şehir: ISPARTA Mesaj: 410 Excel Vers. ve Dili: office 2003	Hocam çok teşekkür ediyorum. Sorunsuz çalışıyor. Tekrar teşekkürler ve hayırlı geceler diliyorum.