Hata var ise dur nasıl yazılır

[hakki83]

Selamlar

On Error Resume Next
Yerine
(Uydurma yazıyorum)
If Error Then Exit Sub
benzeri gibi bir satır nasıl yazılır?

Yani kod hata verirse çalışmaya devam etmesin,
Dolayısı ile hata penceresi de çıkmasın,
Sadece kodun çalışması dursun.

Amacım hata penceresinin çıkmaması.

 

[kulomer46]

Merhaba

Kodlar aşağıdaki şekilde düzenlenirse hata anında hata penceresi çıkmaz, hata anında otomatik kod çalışması durur.

Selamlar...

Sub Deneme()

On Error GoTo son

'Burada normal kodlarınız bulunur
......................
......................
......................

Exit Sub

son:

End Sub

 

[hakki83]

Değerli kulömer46 hocam emeğinize sağlık. Teşekkür ederim.

Neden ihtiyaç duymuştum ondan da bahsedeyim.
Normalde sorunsuz çalışan, sütunun belli yerlerini silen bir kodum vardı. Sütun boş olunca normal olarak hata veriyordu. Vermemesi için On Error Resume Next’i denedim. Bu sefer de kod çalışmaya devam ettiği için, seçili herhangi bir hücreden itibaren siliyordu. Yani yanlış bir iş yapmış oluyordu.
Şimdi sorun çözüldü.

 

[kulomer46]

Değerli kulömer46 hocam emeğinize sağlık. Teşekkür ederim.

Neden ihtiyaç duymuştum ondan da bahsedeyim.
Normalde sorunsuz çalışan, sütunun belli yerlerini silen bir kodum vardı. Sütun boş olunca normal olarak hata veriyordu. Vermemesi için On Error Resume Next’i denedim. Bu sefer de kod çalışmaya devam ettiği için, seçili herhangi bir hücreden itibaren siliyordu. Yani yanlış bir iş yapmış oluyordu.
Şimdi sorun çözüldü.

Selamlar değerli kardeşim...