satır satır Kelime Aramak

[Orion1]

Mrb.
A2:A65536 Satırlarını B2'deki veriye göre küçük , büyük harf ayrımı yapmaksızın Kelimenin tamamını aratmak istiyorum.
Mesala B2 de SEZAR varsa, A2:A65536 satırları arasında sezar,SEzar,SEZAR,Vebenzerleri olsa bile Bulduğu zaman Kelime bulundu Diye mesaj versin istiyorum.
Teşekkür ederim
İyi çalışmalar.

 

[maviyaz]

Aşağıdaki kodları kendine uyarlayabilirsin veya aynen de alabilirsin.

sayfa adı "deneme" ve veriler sütun "1" de

Sub bul()
Set k = Sheets("deneme").Columns(1).Find(Range("B1").Value, lookat:=xlWhole, LookIn:=xlValues)
If k Is Nothing Then
MsgBox Range("B1").Value & " ismi bulunamadı"
Else
MsgBox Range("B1").Value & " ismi bulundu"
End If
End Sub


İyi çalışmalar.

 

[Orion1]

Yanıtınız için teşekkür ederim.
İyi çalışmalar.