DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
'http://www.cpearson.com/excel/OnTime.aspx
Public RunWhen As Double
Public Const cRunIntervalSeconds = 120 ' 2 dakika
Public Const cRunWhat = ""The_Sub""
Sub StartTimer() ' Timer'ı başlatır
RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
Application.OnTime earliesttime:=RunWhen, procedure:=cRunWhat,"
schedule:=True
End Sub
Sub The_Sub()
' Buraya kodlar yazılacak
StartTimer ' Tekrar etmesi için
End Sub
Sub StopTimer() ' Timer'ı durdurur
On Error Resume Next
Application.OnTime earliesttime:=RunWhen,"
procedure:=cRunWhat, schedule:=False
End Sub
......
Arşivimden bulduğum bir kod örneği.
Kaynak belirsiz.
.Kodu görür görmez hatırladım..... Charles Pearson'un efsane kodlarından biri. Geçtiğimiz yıl bir trafik kazasında öldü.
http://www.cpearson.com/excel/OnTime.aspx
.
Teşekkürler Haluk beyKodu görür görmez hatırladım..... Charles Pearson'un efsane kodlarından biri. Geçtiğimiz yıl bir trafik kazasında öldü.
http://www.cpearson.com/excel/OnTime.aspx
.
Bilgi için teşekkür ederim. Kod a eklendi.Kodu görür görmez hatırladım..... Charles Pearson'un efsane kodlarından biri. Geçtiğimiz yıl bir trafik kazasında öldü.
http://www.cpearson.com/excel/OnTime.aspx
.