Hücrede çoklu kelime aratma

[hedjaz]

Merhabalar,

forumda çeşitli örnekleri inceledim. Maalesef istediğimi sağlayabilecek bir çözüm bulamadım.

Ekteki örnekte umarım meramımı anlatabilmişimdir.

Not : Örnek listenin orijinal hali yaklaşık 1000 satırlık bir tablo.

Destekleriniz için şimdiden teşekkürler.

 

[veyselemre]

Sub test()
    Dim s, i, ii
    s = Range("D2:E" & Cells(Rows.Count, 4).End(3).Row).Value
    For i = 1 To UBound(s)
        For ii = 2 To Cells(Rows.Count, 1).End(3).Row
            If Cells(ii, "B").Value = "" Then
                If InStr(Cells(ii, "A").Value, s(i, 1)) > 0 Then Cells(ii, "B").Value = s(i, 2)
            End If
        Next ii
    Next i
End Sub

 

[hedjaz]

Elinize sağlık gayet iyi çalışıyor.

Her yeni satır girdiğimde veya veriyi değiştirdiğimde makroyu çalıştırmam gerekiyor. Bunun otomatik hali veya kısa yolu var mıdır?

 

[Korhan Ayhan]

Alternatif;

=İNDİS($E$2:$E$12;KAÇINCI(DOĞRU;ESAYIYSA(MBUL($D$2:$D$12;A2));0))

 

[hedjaz]

Çok teşekkür ederim korhan bey. tam olarak istenileni karşılıyor.
Kolaylıklar dilerim.