Sub OtomatikIslem()
On Error GoTo ErrorHandler ' Hata yönetimini başlat
Dim zaman As Double ' Zaman değişkeni
zaman = Now + TimeValue("00:15:00") ' Şu anki zamanı al, üzerine 15 dakikayı ekle
Debug.Print , "İşlem", Now' <<==buraya yapılacak işlem yazılır
Application.OnTime zaman, "IslemYap" ' Zamanı ayarla ve "IslemYap" prosedürünü çalıştır
Exit Sub ' Prosedürü bitir ve çık
ErrorHandler:
' Hata durumunda yapılacak işlemler
' Hata mesajlarını kullanıcıya göstermek ya da loglamak gibi
' ...
Exit Sub ' Hata durumunu bitir ve çık
End Sub
Sub IslemYap()
' Burada yapmak istediğiniz işlemi kodlayabilirsiniz
' ...
' İşlem yapıldıktan sonra tekrar OtomatikIslem prosedürünü çağırarak 15 dakika sonra yeniden çalışmasını sağlayabilirsiniz
Debug.Print Now
OtomatikIslem
End Sub
temel mantık aşağıdaki gibidir