On Error Resume Next için alternatif?

[ali8686]

Selamlar, iyi günler herkese,

On error resume next kullanmadan bir hata oluştuğunda msgbox ile uyarı verilmesi sağlanabilirmi?

On Error Goto MsgBox "Şifreyi yanlış Girdiniz" gibi birşey örneğin?

 

[leumruk]

Selamlar, iyi günler herkese,

On error resume next kullanmadan bir hata oluştuğunda msgbox ile uyarı verilmesi sağlanabilirmi?

On Error Goto MsgBox "Şifreyi yanlış Girdiniz" gibi birşey örneğin?

Merhaba,

On Error Goto Mesaj
......
......
......
......
mesaj: MsgBox "Şifreyi yanlış Girdiniz"

 

[mustafaine1]

cevabi biraz icerisinde bir soru olmus

 

[ali8686]

Teşekkürler leumruk.

Ancak çıkan msgbox'a tıkladığım zaman run olayı durmuyor. Yani makro çalışmaya devam ediyor.
Bu kodu yazdığım yerden sonraki satırların çalışmaması için nasıl bir yol izlemeli?

Veya msgbox yerine direk makroyu durduran bir çözümde işimi görebilir.

Tekrardan teşekkürler

 

[mustafaine1]

mesaj : bolumunu en sub dan once koyup

mesaj:
Exit Sub

seklinde duzenleyebilirsiniz..

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kod yapısını kullanabilirsiniz. Kırmızı bölüme çalışmasını istediğiniz kodlarınızı yazınız.

Option Explicit
 
Sub HATA_KONTROLÜ()
    On Error GoTo Hata
    
[COLOR=red]    MsgBox Cells.SpecialCells(xlCellTypeComments).Count
[/COLOR]    Exit Sub
 
Hata:
    MsgBox "Sayfada açıklama eklenmiş hücre bulunamadı !", vbCritical
End Sub

 

[ali8686]

Korhan Bey, Mustafa Bey,

Desteğiniz için teşekkürler. Problemimi sayenizde hallettim.

İyi çalışmalar diliyorum.

 

[mustafaine1]

rica ederim sorunuzla probleminizi zaten cozmustunuz, kolay gelsin..