temel mantık aşağıdaki gibidir

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