Kelime arama

[erdemzi]

Merhaba, benzeri çok başlık var ancak hiçbirini çalışır şekilde ilerletemedim.

A sutununda cumleler var. B sutunuda kelimeler var.
B sutunundaki kelimelerin A sutununda olup olmadığını kontrol etmek istiyoruz. düşeyara yada ara mbul gibi fonksiyonlar işimiz görmüyor.

Yardımlarınız için şimdiden teşekkürler.

A / B / C
İstanbul Van izmir bursa / Ankara / Var
Sivas Erzurum konya Bursa / Elazığ / Var
Ankara Muş Hakkari Elazığ / Adana / Yok
...
..

 

[volki_112]

dosya.co dosya.tc gibi paylaşım sitelerine dosyanızı yükleyip buraya link verebilirsiniz.

 

[Muzaffer Ali]

Merhaba.

=EĞER(EHATA(BUL(B1;A1));"YOK";"VAR")

 

[erdemzi]

Merhaba, benzeri çok başlık var ancak hiçbirini çalışır şekilde ilerletemedim.

A sutununda cumleler var. B sutunuda kelimeler var.
B sutunundaki kelimelerin A sutununda olup olmadığını kontrol etmek istiyoruz. düşeyara yada ara mbul gibi fonksiyonlar işimiz görmüyor.

Yardımlarınız için şimdiden teşekkürler.

A / B / C
İstanbul Van izmir bursa / Ankara / Var
Sivas Erzurum konya Bursa / Elazığ / Var
Ankara Muş Hakkari Elazığ / Adana / Yok
...
..

Book2.xlsx dosyasını indir - download

Book2.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[erdemzi]

örnek bir dosya üst yorumda ekledim. Muzaffer Ali teşekkürler sizin formul sadece aranılan kelime ve cümle aynı satırda olunca işe yarıyor. Yani aranılacak bir hücreyi tüm sutunda aramıyor.

 

[volki_112]

örnek bir dosya üst yorumda ekledim. Muzaffer Ali teşekkürler sizin formul sadece aranılan kelime ve cümle aynı satırda olunca işe yarıyor. Yani aranılacak bir hücreyi tüm sunutda aramıyor.

Formül =EĞERHATA(EĞER(KAÇINCI("*"&B2&"*";$A$2:$A$4;0)>0;"Var";"Yok");"Yok")

 

[erdemzi]

Teşekkürler

 

[tahsinanarat]

Sub TumSutundaKelimeKontrol()
Dim ws As Worksheet
Dim lastRowA As Long, lastRowB As Long
Dim i As Long, j As Long
Dim tumCumleler As String
Dim kelime As String
Dim sonuc As String

Set ws = ThisWorkbook.Sheets("Sayfa1")

lastRowA = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
lastRowB = ws.Cells(ws.Rows.Count, 2).End(xlUp).Row

tumCumleler = LCase(Join(Application.Transpose(ws.Range("A2:A" & lastRowA).Value), " "))

For i = 2 To lastRowB
kelime = LCase(ws.Cells(i, 2).Value)

If InStr(1, tumCumleler, kelime, vbTextCompare) > 0 Then
sonuc = "Var"
Else
sonuc = "Yok"
End If

ws.Cells(i, 3).Value = sonuc
Next i

MsgBox "Kontrol tamamlandı!", vbInformation
End Sub