Application.OnTime hakkında

[omurdeep]

merhabalar,

aşağıdaki ontime işlemni çalıştıramıyorum. nasıl çalıştırabilirm? bu konuda yardımcı olabilirmisiniz?


Sub günceleme()
Application.OnTime Now + TimeValue("00:00:10"), "RUN"
Application.OnTime Now + TimeValue("00:00:30"), "Kaydet"
End Sub

Sub RUN()
'
' Macro2 Macro
'
Application.RUN "'fiyat çekme.xlsm'!musica"
Application.RUN "'fiyat çekme.xlsm'!preziosa"
Application.RUN "'fiyat çekme.xlsm'!splendida"
Application.RUN "'fiyat çekme.xlsm'!opera"
Application.RUN "'fiyat çekme.xlsm'!fantasia"
Application.RUN "'fiyat çekme.xlsm'!armonia"

End Sub

Sub Kaydet()
Ad = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop") & _
"\paket2016" & Application.PathSeparator & Date & " " & Format(Time, "hh.mm") & ".xlsx"
ActiveSheet.Copy
With ActiveWorkbook
For Each myshape In ActiveSheet.Shapes
myshape.Delete
Next myshape
.SaveAs Filename:=Ad
.Close
End With
End Sub

 

[omurdeep]

konuyu kapatabiliriz. siteden ararştırarak buldum.