başvuru hatası verince msgbox'ın açılmasını istiyorum

[cankanak@yahoo.co.uk]

Bir hücre başvuru hatası verince mesaj kutusu nasıl açılır.Başvuru hatası excel'in gizlenmiş olan diğer sayfasında verdiğinden kullanıcının uyarılmasını istiyorum. Teşekkür ederim.

 

[uzmanamele]

Merhaba

Hatalı hücre değerine göre hata mesajı veren kod örneği ektedir.
Durumunuza göre uyarlayabilirsiniz.
A1:A20 aralığında durum tespiti yapar.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim hcr As Range
For Each hcr In Range("a1:a20")

If IsError(hcr.Value) Then
adr = hcr.Address
    errval = hcr.Value
    Select Case errval
        Case CVErr(xlErrDiv0)
            MsgBox adr & " #DIV/0! error (#SAYI/0! hatası)"
        Case CVErr(xlErrNA)
            MsgBox adr & "#N/A error (#YOK hatası)"
        Case CVErr(xlErrName)
            MsgBox adr & "#NAME? error (#AD? hatası)"
        Case CVErr(xlErrNull)
            MsgBox adr & "#NULL! error (#BOŞ! hatası)"
        Case CVErr(xlErrNum)
            MsgBox adr & "#NUM! error (#SAYI! hatası)"
        Case CVErr(xlErrRef)
            MsgBox adr & " #REF! error (#BAŞV! hatası)"
        Case CVErr(xlErrValue)
            MsgBox adr & " #VALUE! error (#DEĞER!hatası)"

    End Select
End If
Next
End Sub

 

[cankanak@yahoo.co.uk]

ilginize çok teşekkür ederim.