Harfi bul karşısına "X" işareti koy

[kmlpyrz]

Ekteki dosyamda butona tıkladığımda, [A2:A13] aralığına yazdığım ismin harflarini [C2:C33] sütununda bulup, ilgili satırın D sütununa X işareti koymasını istiyorum.
Bu olayı formüllerle yapabildim ama VBA üzerinde kodlarla yazılmasını başaramadım.
Yardımlarınızı bekliyorum, teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu kullanabilirsiniz.

Private Sub CommandButton1_Click()
    With Range("D2:D33")
        .Formula = "=IF(AND(D$1=1,COUNTIF(A$2:A$100,C2)>0),""X"","""")"
        .Value = .Value
    End With
End Sub

 

[kmlpyrz]

Sayın hocam ilginiziden ve yardımlarınızdan dolayı teşekkür ederim.