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

RBozkurt · 1 Mar 2022

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 · 1 Mar 2022

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:

Apache config:

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

Ümit Bakacak · 1 Mar 2022

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

RBozkurt · 2 Mar 2022

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:

C++:

İç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 · 2 Mar 2022

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

RBozkurt · 2 Mar 2022

ubak' Alıntı:
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 · 2 Mar 2022

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 · 2 Mar 2022

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

RBozkurt · 2 Mar 2022

ubak' Alıntı:
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 · 2 Mar 2022

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ş.

DİKKAT ! Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir. Giriş yap veya Şimdi kayıt ol

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

DİKKAT !
Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

Giriş yap veya Şimdi kayıt ol