ototmatik makro çalıştırma

[neromero]

arkadaşlar excel de bir makro kaydettim. excel dosyasını açınca bu makronun 20 sn de bir çalışmasını istiyorum biraz acil şimdiden teşekkür ederim.

 

[mhizlim]

Public dTime As Date
Dim lNum As Long

Sub RunOnTime()
dTime = Now + TimeSerial(0, 0, 20)
Application.OnTime dTime, "RunOnTime"

lNum = lNum + 1
If lNum = 3 Then
Run "CancelOnTime"
Else
MsgBox lNum
End If

End Sub

Sub CancelOnTime()
Application.OnTime dTime, "RunOnTime", , False
End Sub

 

[neromero]

Public dTime As Date
Dim lNum As Long

Sub RunOnTime()
dTime = Now + TimeSerial(0, 0, 20)
Application.OnTime dTime, "RunOnTime"

lNum = lNum + 1
If lNum = 3 Then
Run "CancelOnTime"
Else
MsgBox lNum
End If

End Sub

Sub CancelOnTime()
Application.OnTime dTime, "RunOnTime", , False
End Sub

üstad bunu kod sayfasına mı yazacağız.