makronun otomatik olarak acilmasi ve calismasi

[aydincoban]

peki makronun belli bir sn de tekrar tekrar calismasini istiyorum.
stoklari tutan bir dosya var kullanicilar xls dosyasini actiginda makronun otomatik olarak calismasi ve 10 sn de bir de kendini guncellemesi gerekiyor.

forumdan bulabildiklerimle ve bilmedigim makro bilgilerimle asagida bir makro olusturdum. Dogru calismadi.
Yardimci olabilecek varsa sevinirim.
------->
Sub guncelle()
sure = 5
baslangic = Timer
Do While Timer < baslangic + sure
DoEvents
ActiveWorkbook.UpdateFromFile
Loop
End Sub
------->

 

[Haluk]

Aşağıdakileri sözkonusu dosyada yeni bir module yapıştırdıktan sonra kaydedin ve kapatın. Daha sonra dosyayı tekrar açın.

Dim RunWhen As Double
Const RunWhat = "Info"
'
Sub Auto_Open()
    StartTimer
End Sub
'
Sub StartTimer()
    RunWhen = Now + TimeSerial(0, 0, 5)
    Application.OnTime earliesttime:=RunWhen, procedure:=RunWhat, schedule:=True
End Sub
'
Sub Info()
    ' Aşağıdaki satırda yer alan MsgBox fonksiyonu yerine,
    ' çalıştırılmasını istediğiniz başka bir makronun adını yazarak
    ' o makronun çalıştırılmasını sağlayabilirsiniz.
    MsgBox "Dikkat, sayfayi güncelleyin !"
    StartTimer
End Sub
'
Sub StopTimer()
    On Error Resume Next
    Application.OnTime earliesttime:=RunWhen, procedure:=RunWhat, schedule:=False
End Sub
'
Sub Auto_Close()
    StopTimer
End Sub

 

[artvinlee]

bu kodlar çok uzun zaman önce yazılmış ya bende bi sorun var yada ben beceremedim hata verdi verdiği hata;
Application.OnTime earliesttime:=RunWhen, procedure:=RunWhat, schedule:=True

benim asıl yapmak istediğim bir makronun çalışma kitabı açılınca çalışması ve belli sürelerde (mesela 10 saniyede bir) otomatik olarak tekrardan çalışması böyle birşey mümkünmüdür acaba mümkünse nasıl olabilir yardımlarınıza ihtiyacım var şimdiden tşkler ayrıca böyle güzel bir paylaşım yerinin olduğu için paylaşan herkese teşekkür ederim
Saygılarımla...

 

[Seyit Tiken]

Aşağıdaki kodu uygulamaya çalışınız. İlgili dosya ekte.

Sub auto_open()
Application.OnTime Now + TimeValue("00:00:03"), "mesa"
End Sub

Sub mesa()
MsgBox [a1] & " " & [a2] & " " & [a3]
auto_open
End Sub

 

[artvinlee]

say&#305;n Seyit_Tiken &#231;ok te&#351;ekk&#252;r ederim kolay gelsin sayg&#305;lar&#305;mla