Çözüldü Makro Hata Verince Atlama ve Mesaj ?

[RBozkurt]

Merhaba,

Resimdeki (temsili) hata gibi makro hata verince ekran nasıl kapatılabilir? Hata varsa işlem dursun fakat ekrana gelmesin. Veya bu hata "işlemi kontrol edin gibi" bir mesaj kutusuna atanabilirmi?
Teşekkürler

 

[Ümit Bakacak]

Muhtemelen bir dosya yada klasör yolu bulunamadığından bu hatayı alıyorsunuz.
O pencerede Debug düğmesine tıkladığınızda SARI RENKLE boyanmış bir satır göreceksiniz.
Orası hata oluşan kod. Şöyle devam edin.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Ümit Bakacak]

Tabi başka mantıklar da kurulabilir. Mesela elle klasör/dosya seçtirebilirsiniz. vb...

 

[RBozkurt]

Bu satırda hata veriyor.
sonSatirKaynak = kaynak.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

Satırın üstüne On Error GoTo hataa1: ekleyip en sonada hataa1: MsgBox "Dosya seçilmediği için işlem iptal edildi." & vbCrLf & "Lütfen Kontrol Edin!", vbCritical bu mesaj eklendi.

Hata verince mesajı gösteriyor. Tamam diyince işleme devam etmemesi için hangi kodu eklemeliyim?


HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

.
.
hataa1: MsgBox "Dosya seçilmediği için işlem iptal edildi." & vbCrLf & "Lütfen Kontrol Edin!", vbCritical

 

[Ümit Bakacak]

MsgBox ...... satırının altına "Exit Sub" ekle.

 

[RBozkurt]

MsgBox ...... satırının altına "Exit Sub" ekle.

hataa1: MsgBox "Dosya seçilmediği için işlem iptal edildi." & vbCrLf & "Lütfen Kontrol Edin!", vbCritical

Bu satırı makronun en sonuna End Sub'un bir üzerine eklersem eğer hata gelince aradaki kısmı atlayıp sonuçlanır mı?

 

[Ümit Bakacak]

Bir de Sub başında kapattığın şeyler varsa hataa1: altına onları tekrar açan kodları eklemeyi unutma.

mesela sub başında
application.display alerts = false
application.enableevents = false
gibi olayları ve uyarıları kapattıysan

hataa1:
application.display alerts = true
application.enableevents = true
exit sub

 

[Ümit Bakacak]

Zaten end sub dan önceki satırsa exit sub yazmaya gerek yok. Zaten çıkış koduna gelmişsin.

 

[RBozkurt]

Zaten end sub dan önceki satırsa exit sub yazmaya gerek yok. Zaten çıkış koduna gelmişsin.

Yardımlarınız için teşekkür ederim sayın ubak
Yarın baştan sonra detaylıca test yapıp hata gelen yerlere ilgili uyarıları ekleyeyim.

 

[Ümit Bakacak]

Yani şöyleyse

hataa1:
application.display alerts = true
application.enableevents = true
end sub

"end sub" üstüne "exit sub" yazmaya gerek yok. Zaten prosedür bitmiş.