düşeyara ya ilave msgbox

[ugurakin]

merhaba, excel de çalışma sayfamın birinde sicil no ve banka hesap no bilgileri var. diğer sayfada hücrelere sicil no sunu girdiğimde diğer sayfadan düşeyara komutuyla banka hesap no sunu (varsa) getiriyorum. eğer bulamaz ise #YOK hatasını veriyor. Bu hatayı verirken msgbox aracılığı ile de ekrana mesaj getirebilir miyiz ? örneğin "banka hesap no su bulunamadı" şeklinde. teşekkürler...

 

[Mahmut Kök]

Aşağıdaki kodları, sicil no'sunu girdiğiniz sayfanın kod bölümüne ekleyip deneyebilirsiniz. Kırmızı alan, #YOK iletisinin çıktığı hücredir. Örnek dosyanız olmadığından size uygun olmayabilir; ancak yine de fikir verebileceğini düşünüyorum.

Private Sub Worksheet_Change(ByVal Target As Range)
If IsError([COLOR=red]Sheets("Sayfa1").Range("A1")[/COLOR]) = True Then
MsgBox "BANKA HESAP NUMARASI BULUNAMADI", , "KAYIT YOK"
End If
End Sub

 

[ugurakin]

sn mesleki, vermiş olduğunuz kod a1 hücresini kontrol ediyor. sicil no ları alt alta girdiğimizi düşünürsek nasıl bir kod yazmamız gerekir ? yani b1, c1, ... diğerlerini de nasıl test edebiliriz ?

 

[Mahmut Kök]

Kırmızı renkle gösterilmiş olan alan, #YOK uyarısının aranacağı alandır. Kendi programınıza uyarlayabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim verim As Range
For Each verim In [COLOR=red]Sheets("sayfa1").Range("a1:d10")[/COLOR]
If IsError(verim) = True Then
MsgBox "BANKA HESAP NUMARASI BULUNAMADI.", , "KAYIT YOK"
End If
Next
End Sub