A sütunundaki sayılardan herhangi birinin aynısı B ile D sütunlarında yok ise

[imyourfate]

Değerli hocalarım saygılarımı sunuyorum

benim söyle bir sorunum var
A sütunundaki sayılardan hergangi birinin aynısı B ile D sütunları arasında yok ise ..... olan sayı bulunamamıştır şeklinde uyarı verecek bir makroya ihtiyacım var şayet mümkünse şimdiden teşekkürlerimi sunarım

iş yerinde olduğum için örnek dosya ekleme şansım olmadı

Saygılarımla

 

[Necdet]

Merhaba,

Örnek dosyayı inceleyiniz. A sütununu okur, B arasında arar bulamadığını E sütununda yazar. Kodları kendinize göre uyarlayınız.

Sub AraBulSonucuYaz()
 
    Dim i   As Long, _
        Son As Long, _
        c   As Range
    
    Son = Cells(Rows.Count, "A").End(3).Row
    Range("E2:E" & Son).ClearContents
    
    For i = 2 To Son
        Set c = Range("B2:D" & Son).Find(Cells(i, "A"), LookIn:=xlValues, LookAt:=xlWhole)
        If c Is Nothing Then Cells(i, "E") = Cells(i, "A") & " Sayısı Bulunamamıştır"
    Next i
    
    MsgBox "Arama Bitmiştir...."
    
End Sub