Kelime içinde ara bul makrosu

[Carpintero]

Merhabalar,
A1 deki veriyi B sütununda arama yaptıracağız.
Arama sonucunu C sütununda işaretleyeceğiz.
Kendi çabalarım sonuçsz kaldı maalesef.
Yardımcı olabilirseniz çok sevinirim. Teşekkürler.

 

[Ömer]

Merhaba,

İstediğiniz bu mu?

=EĞER(ESAYIYSA(MBUL($A$1;C3));"*";"")

.

 

[Carpintero]

Ömer Hocam merhabalar,
Formül hata verdi. Lakin işlemi makro ile yapmak istiyorum.
A1 ve B sütunundaki veriler olduğu halde makro çalıştığında
C deki x leri elde etmemiz gerekli makro ile. Saygılar

 

[Orion1]

Buyurun.

Sub icinde()
Dim i As Long, sonsat As Long, sat As Long
Range("C:C").ClearContents
sonsat = Cells(Rows.Count, "B").End(xlUp).Row
sat = 3
For i = 3 To sonsat
    If InStr(1, Cells(i, "B").Value, Range("A1").Value) > 0 Then
        Cells(sat, "C").Value = "X"
    End If
    sat = sat + 1
Next i
MsgBox "İşlem Tamamlandı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[Carpintero]

Çok teşekkür ederim Evren Hocam
ellerinize sağlık. Saygılar

 

[Orion1]

Çok teşekkür ederim Evren Hocam
ellerinize sağlık. Saygılar

Rica ederim.
İyi çalışmalar.