On Error Resume Next durdurmak?

[Rafet]

Makroda
On Error Resume Next
kodunu kullandığım zaman bütün hatalarda devam ediyor. Yani hata uyarısı vermeden devam ediyor. Bu kodun sadece belli satırlarda çalışmasını istiyorum. Yada başka kod nasıl kullanırım.

Yapmak istediğim sayfa seçimi yaparken hata verirse Uyarı vermesi.

calissayfa = "CariBul"
On Error Resume Next
Sheets(calissayfa).Select
If Err <> 0 Then
ZZZ = MsgBox("" & calissayfa & " sayfasında çalışılmıyor. Sayaf Yapım Aşamasında Olabilir. Lütfen bilgi alınız ?", , "Hata :")
Exit Sub
End If

 

[Recep İpek]

Sub Button2_Click()
calissayfa = "CariBul"
On Error GoTo Hata
Sheets(calissayfa).Select
Hata:
If Err <> 0 Then
ZZZ = MsgBox("" & calissayfa & " sayfas&#305;nda &#231;al&#305;&#351;&#305;lm&#305;yor. Sayaf Yap&#305;m A&#351;amas&#305;nda Olabilir. L&#252;tfen bilgi al&#305;n&#305;z ?", , "Hata :")
Exit Sub
End If
End Sub

&#351;eklinde deneyiniz.

 

[Orion1]

Merhaba.
Aşağıdaki şekilde deneyebilirsiniz.

calissayfa = "CariBul"
On Error GoTo hata
Sheets(calissayfa).Select
'.......Kodalarınız.........
Exit Sub
hata:
MsgBox "HATA OLUŞTU"
End Sub

 

[Rafet]

Teşekkürler Sn. Ripek bende sizin düşündüğünüz gibi düşündüm sonra . Acaba
On Error Resume Next kodunda Next değilde Stop felan kullanaarak bi kod olup olmadığını bir bilen cıkarmı diye düşündüm .

Teşekkürler.

Muhabbetle