Hücre içerisindeki Kelime ile eşleştirme

[erdin06]

Arkadaşlar merhaba,

benim şöyle bir desteğe ihtiyacım var.
Eğer C1 hücresindeki bir Kelime A1 hücresinde de geçiyorsa 1, geçmiyorsa 2 yapsın gibi.
Ekte örnek bir dosya ekledim. Umarım yardımcı olursunuz.
Şimdiden teşekkürler!

Not: Ek ekleyemedim

 

[YUSUF44]

Örnek dosyanızı dosya yükleme sitelerinden birine ekleyip burada linkini paylaşabilirsiniz.

 

[erdin06]

Buradan yüklemeye çalıştım.

http://s6.dosya.tc/server5/e4bsyj/Eger_Formulu.xlsx.html

 

[YUSUF44]

Maalesef benim yapabileceğim bir şey değil.

 

[PLİNT]

Merhaba
Kodlarla işinize yararsa; ek dosyayı deneyin.
http://s6.dosya.tc/server5/9dqydf/Kopya_Xl0000017.zip.html
"A1" hücresindeki kelimeleri "C1" içinde arayacak

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
For a = 1 To Cells(Rows.Count, "D").End(3).Row
If Cells(a, "D").Value <> "" And Cells(a, "F").Value <> "" Then
x = Len(Cells(a, "D").Value) - Len(Replace(Cells(a, "D").Value, " ", ""))
For b = 0 To x
Set c = Cells(a, "F").Find(Split(Cells(a, "D"), " ")(b), lookat:=xlPart)
If Not c Is Nothing Then
Cells(a, "G") = "1"
Exit For
Else
Cells(a, "G") = "2"
End If
Next
End If
Next
End Sub

 

[ÖmerBey]

Aşağıdaki formülü deneyiniz.

=EĞER(MAK(EĞERHATA(BUL(PARÇAAL(C1&"-"&C1;BUL("#";YERİNEKOY(C1&"-"&C1;"-";"#";SATIR($A$1:$A$50)))+1;BUL("#";YERİNEKOY(C1&"-"&C1;"-";"#";SATIR($A$1:$A$50)+1))-BUL("#";YERİNEKOY(C1&"-"&C1;"-";"#";SATIR($A$1:$A$50)))-1);A1);""))>0;1;2)

Not: Formül dizi formülüdür. Hücre içindeyken Ctrl+Shift+Enter tuşlarına birlikte basılarak elde edilir.

 

[erdin06]

Merhaba
Kodlarla işinize yararsa; ek dosyayı deneyin.
http://s6.dosya.tc/server5/9dqydf/Kopya_Xl0000017.zip.html
"A1" hücresindeki kelimeleri "C1" içinde arayacak

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
For a = 1 To Cells(Rows.Count, 1).End(3).Row
If Cells(a, "A").Value <> "" And Cells(a, "C").Value <> "" Then
x = Len(Cells(a, "A").Value) - Len(Replace(Cells(a, "A").Value, " ", ""))
For b = 0 To x
Set c = Cells(a, "C").Find(Split(Cells(a, "A"), " ")(b), lookat:=xlPart)
If Not c Is Nothing Then
Cells(a, 4) = "1"
Exit For
Else
Cells(a, 4) = "2"
End If
Next
End If
Next

End Sub

Bu çok işime yaradı. Çok teşekkür ederim. Sadece ufak bir değişiklik yapabilir miyiz??
"D1" hücresindeki kelimeleri "F1" içinde arayacak şeklinde değiştirebilir miyiz??

Şimdiden çoooooooooooookkk Teşekkür ederim...

 

[PLİNT]

Merhaba
Yukarıdaki; mesajımda bulunan kodlar değişti onları deneyin.
Kodlar "D" hücresinde bulunan kelimelerin aralarındaki boşlukları sayarak çalışmaktadır,
kullanacağınız dosyada ("D" sütunundaki) kelime aralarında "-" gibi değişik işaretler varsa ona göre düzenleme yapmak gerekir. Kolay gelsin.