On Error Resume Next (Hataları Sümen Altı Etmek)

Hata Atlatma

Bazen hatalar beklenen bir durumdur. Örneğin sayfa silerken o sayfa zaten yoksa kodun çökmesi yerine sıradakine geçmesini isteriz.

VBA Kodu:

Sub HataKapat()
    On Error Resume Next
    Worksheets("OlmayanSayfa").Delete
    On Error GoTo 0 ' Hata ayarını normale döndürür
    MsgBox "İşlem devam ediyor."
End Sub

Ne Göreceksiniz? OlmayanSayfa silinemediği halde Excel sarı renkte meşhur "Run-time error" penceresini çıkartmayacak, makro yoluna devam edecektir.