Makro Hata Mesajını Kişiselleştirme

[müteşair]

Merhaba,

Aşağıda dosyayı açan kullanıcıya göre otomatik filtreleme yapan makroda “Run-error ‘13’ Type mismatch” hatası alınması durumunda açılan hata mesaj kutusuna “Dosya açılışında hata alınması halinde 'Dosya>Seçenekler>Kaydet>Varsayılan yerel dosya konumu' olarak Z:\BELGELERIM\KULLANICIKODUNUZ\My Documents seçilmelidir.” mesajını nasıl yazdırabiliriz


Sub auto_open()
'
' Makro_6 Makro
'A
Columns("A:CE").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("kullanıcılar").Range("J7:J32")
MsgBox "Sn. " & Sheets("kullanıcılar").Range("J4") & " hoşgeldiniz. İzlemeye yetkili olduğunuz " & Sheets("kullanıcılar").Range("J5") & " verileri otomatik filtrelenmiştir.", vbInformation, " Merhaba "

End Sub

 

[muysun35]

Sub auto_open()
On Error GoTo Hata
' Makro_6 Makro
'A
Columns("A:CE").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("kullanıcılar").Range("J7:J32")
 MsgBox "Sn. " & Sheets("kullanıcılar").Range("J4") & " hoşgeldiniz. İzlemeye yetkili olduğunuz " & Sheets("kullanıcılar").Range("J5") & " verileri otomatik filtrelenmiştir.", vbInformation, " Merhaba "
Hata:  Msgbox "Dosya açılışında hata alınması halinde 'Dosya>Seçenekler>Kaydet>Varsayılan yerel dosya konumu' olarak Z:\BELGELERIM\KULLANICIKODUNUZ\My Documents seçilmelidir.”
End Sub

Deneyiniz

 

[müteşair]

Sub auto_open()
On Error GoTo Hata
' Makro_6 Makro
'A
Columns("A:CE").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("kullanıcılar").Range("J7:J32")
MsgBox "Sn. " & Sheets("kullanıcılar").Range("J4") & " hoşgeldiniz. İzlemeye yetkili olduğunuz " & Sheets("kullanıcılar").Range("J5") & " verileri otomatik filtrelenmiştir.", vbInformation, " Merhaba "
Hata:  Msgbox "Dosya açılışında hata alınması halinde 'Dosya>Seçenekler>Kaydet>Varsayılan yerel dosya konumu' olarak Z:\BELGELERIM\KULLANICIKODUNUZ\My Documents seçilmelidir.”
End Sub

Deneyiniz

Hata olmadığı halde "Dosya açılışında hata alınması halinde 'Dosya>Seçenekler>Kaydet>Varsayılan yerel dosya konumu' olarak Z:\BELGELERIM\KULLANICIKODUNUZ\My Documents seçilmelidir.” mesaj kutusu çıktı, sadece hata alındığında çıkması mümkün müdür?

 

[Korhan Ayhan]

Hata: yazan satırın üzerine aşağıdaki kodu ekleyip deneyiniz.

Exit Sub

 

[müteşair]

Hata: yazan satırın üzerine aşağıdaki kodu ekleyip deneyiniz.

Exit Sub

Çok teşekkür ederim..