içinde geçen varsa karşı hücreye yaz

[huseyin610]

Hücre içerisinde belirtilen bir ifade var ise karşısındaki hücreye evet yazabilir mi ?

Find fonksiyonu ile yapmaya çalıştım ama makro olarak döngü içinde yapamadım.

Saygılarımla,

 

[Mehmet Şahin]

İyi akşamlar,
Kodları bir modüle yazıp çalıştırınız. Kolay gelsin.

Sub yaz()
Dim sh As Worksheet
Dim i  As Long
Set sh = ThisWorkbook.Sheets("Sayfa1")
sn = sh.[b65536].End(3).Row
Application.ScreenUpdating = False
sh.Range("c2:c" & sn).ClearContents
        For i = 2 To sn
          If InStr(1, sh.Cells(i, "b"), "YI") > 0 Then
             sh.Cells(i, "c") = "EVET"
          End If
        Next
Application.ScreenUpdating = True
Set sh = Nothing
End Sub