On Error GoTo Etiket İle Hata Yönlendirme

Profesyonel Hata Mimarisi

Makroların son kullanıcı ekranında çökmesi büyük prestij kaybıdır. Kod hata verirse onu özel bir çıkış kapısına (Etikete) yönlendiririz.

VBA Kodu:

Sub HataYonet()
    On Error GoTo HataYakala
    Dim x As Integer: x = 10 / 0 ' Sıfıra bölme hatası çıkartır
    Exit Sub ' Sorun yoksa makrodan çık

HataYakala:
    MsgBox "Bir sorun oluştu: " & Err.Description
End Sub

Ne Göreceksiniz? Excel kod penceresini çökertmek yerine, ekrana "Bir sorun oluştu: Sıfıra bölünme hatası" yazan kibar bir mesaj verecektir.