Sütunda aranılan değerin olup olmadığı bilgisini veren macro

[anatole]

Selamlar,

Arkadaşlar yazmaya çalıştığım bir macroda bir sütunda bir değer aratıcağım bulamazsa bir mesaj vermesini bulursa başka bir mesaj vermesini istiyorum. If not .... like ..... then formatıyla bunu yapmayı başaramadım. Yardımcı olusanız sevinirim.

 

[Korhan Ayhan]

Selamlar,

Size iki örnek kod hazırladım dilediğinizi kullanabilirsiniz. Kod "A" sütununda "EXCEL" kelimesini arar. Kendinize göre uyarlayınız.

Option Explicit
 
Sub ÖRNEK_1()
    If WorksheetFunction.CountIf(Range("A:A"), "EXCEL") > 0 Then
        MsgBox "Aranan veri A sütununda bulunmaktadır."
    Else
        MsgBox "Aranan veri bulunamadı !"
    End If
End Sub
 
Sub ÖRNEK_2()
    Dim BUL As Range
 
    Set BUL = Range("A:A").Find("EXCEL", LookAt:=xlWhole)
    If Not BUL Is Nothing Then
        MsgBox "Aranan veri A sütununda bulunmaktadır."
    Else
        MsgBox "Aranan veri bulunamadı !"
    End If
 
    Set BUL = Nothing
End Sub