Dizin Halindeki Veriler İçinde Dizin Halindeki Sözcükleri Belirleme

[baydeniro]

Merhaba arkadaşlar. C sütununda bulunan hücrelerden, içinde J sütununda bulunan sözcükler olan hücreleri belirleyebilecek bir formül var mıdır ?

Örnek dosya ektedir.

 

[Korhan Ayhan]

Selamlar,

B4 hücresine aşağıdaki formülü uygulayıp denermisiniz.

=EĞER(TOPLA(EĞERSAY(C4;"*"&$J$4&"*");EĞERSAY(C4;"*"&$J$5&"*");EĞERSAY(C4;"*"&$J$6&"*"))>0;"DOĞRU";"")

 

[Necdet]

Merhaba,

Aşağıdaki kodları deneyebilirsiniz.

Sub AraBul()
Dim c As Range
Dim Adres As Variant
Dim i As Long
Dim sd As Worksheet
Set sd = Sheets("DATA")
sd.Select
Range("B4:B65000").ClearContents
For i = 4 To [J65536].End(3).Row
    With sd.Range("C:C")
        Set c = .Find(Cells(i, "J"), LookIn:=xlValues)
        If Not c Is Nothing Then
            Adres = c.Address
            Do
                Cells(c.Row, "B") = Trim(Cells(c.Row, "B") & " " & Cells(i, "J"))
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> Adres
        End If
    End With
Next i
End Sub

 

[baydeniro]

Sayın Korhan Ayhan ve sayın Necdet Yeşertener, ilginize çok teşekkür ederim. Elleriniz dert görmesin, çok çok güzel çözümler.Sağlıcakla kalın.

 

[Ali]

İçeren kelime varmı yokmu bu durumda

=ARA(9,99999999999999E+307;MBUL($J$4:$J$6;C4);$J$4:$J$6)

Eğer bulduğu kelime için doğru yazdırılacaksa

=EĞER(EHATALIYSA(ARA(9,99999999999999E+307;MBUL($J$4:$J$6;C4);$J$4:$J$6));"";"DOĞRU")

J4:J6 aralığını siz verilerinize göre genişletebilirsiniz.

 

[baydeniro]

Sayın Ali çok teşekkür ederim. Ben de formülde aralığın otomatik genişlemesi nasıl olurdu diye soracaktım. Sağolun, varolun.

 

[mesudiye_052]

Selamlar;

Alternatif olarak

=EĞER(TOPLA.ÇARPIM((EĞERSAY(C4;"*"&($J$4:$J$6)&"*")))>0;DOĞRU;"")

saygılar