Kodların Hata Vermesini Engelleme

Hazır Kod​

Sub HataYonetimiOrnegi()
    On Error GoTo HataYakalayici

    ' Burada normal kodlarınız yer alacak
    Dim sayi1 As Integer
    Dim sayi2 As Integer
    Dim sonuc As Double
    
    sayi1 = 10
    sayi2 = 0  ' Bu değer bölme hatası yaratacaktır

    ' Bölme işlemi
    sonuc = sayi1 / sayi2
    
    ' Başarılı işlem mesajı
    MsgBox "İşlem sonucu: " & sonuc

    ' Kodun normal akışını sürdür
    GoTo IslemeDevam

HataYakalayici:
    ' Hata ile karşılaşılırsa burası çalışır
    MsgBox "Bir hata oluştu: " & Err.Description
    ' Hata sonrası yapılacak işlemler
    Resume IslemeDevam

IslemeDevam:
    ' Hata sonrasında yapılacak işlemler (varsa)
End Sub

Açıklama​

• On Error GoTo HataYakalayici: Eğer hata meydana gelirse, kontrolü HataYakalayici etiketine aktarır.
• sayi1 ve sayi2 değişkenleri tanımlanır. sayi2'ye sıfır değeri verilir ki bölme işlemi sırasında bir hata oluşsun.
• sonuc = sayi1 / sayi2: Bölme işlemi yapılır. Eğer sayi2 sıfır ise, bu bir bölme hatasına yol açar ve kontrol HataYakalayici'ye gider.
• MsgBox "Bir hata oluştu: " & Err.Description: Hata meydana geldiğinde bir mesaj kutusu ile hata mesajı gösterilir.
• Resume IslemeDevam: Hata yönetimi sonrası kodun IslemeDevam etiketinden devam etmesini sağlar. Bu, hata sonrası istenilen işlemleri yapmak için kullanılır.
  
  Bu temel örnek, VBA'da hata yönetimi konseptini ve kullanımını göstermektedir. Hata yönetimi, daha karmaşık ve kullanıcı etkileşimli programlar için oldukça önemlidir, çünkü beklenmedik hataların programın çalışmasını durdurmasını engeller ve daha sağlam bir uygulama yapısına olanak tanır.
  
  Faydalanılması temennisiyle