Bir sütundaki kelimeleri diğer sütunda arama

[unhappyboy]

Merhaba,
İki sutünlu bir excel tablom var.
Benim istediğim b sütünundaki kelimeyi alıp a sütunundaki bütün kelimelerin içinde aramak ve eğer bulursa c sütünuna basmak.

Örnek tabloda c sütununu bel kendim yazdım. bunu otomatik yapacak birşey bulunabilir mi?
Zira 2-3 bin kelimelik karşılaştırmalar yapmam lazım.

Şimdiden çok teşekkürler


Bu arada siteye .xls dosyaları yüklenebiliyor ama .xlsx dosyaları eklenemiyor. Yönetim panelinden ayarlanabileceğini düşünüyorum.

 

[NBATMAN]

İyi akşamlar, bunun için [ sütun karşılaştırma ] biçiminde formda arama yaparsanız istediğiniz sonuca ulaşabilirsiniz.

 

[unhappyboy]

Cevap için teşekkürler.
benim istediğim tam karşılaştırma değil aslında. B sütunundaki kelimeler a sütunundaki kelimelerle aynı olmak zorunda değil. İçinde geçse bile bulmak istiyorum.

Sitede mükerrer kayıtlarlar ilgili onlarca örnek var ama hepsinde kayıtlar birebir aynıysa işlem görüyor.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub LİSTELE()
    Dim X As Long, BUL As Range, ADRES As String
    
    Range("C2:C65536").ClearContents
    
    For X = 2 To Range("B65536").End(3).Row
        Set BUL = Range("A:A").Find(Cells(X, 2), LookAt:=xlPart)
        If Not BUL Is Nothing Then
        ADRES = BUL.Address
        Do
        Cells(Range("C65536").End(3).Row + 1, 3) = Cells(BUL.Row, 1)
        Set BUL = Range("A:A").FindNext(BUL)
        Loop While Not BUL Is Nothing And BUL.Address <> ADRES
        End If
    Next
    
    Set BUL = Nothing
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[unhappyboy]

Sn. Korhan Ayhan,
Öncelikle çalışma ve cevabınız için teşekkürler.
Verdiğiniz makro ornek dosyasındaki veriler ile çalıştı.
Ancak b sutununa 73676hücreli veri ekliyorum. Makroyu çalıştırıyorum, işlem tamamlandı diyor ama sonuç çıkarmıyor.

 

[unhappyboy]

Cells(Range("C65536") gibi yerleri 85536 olarak değiştirince çalıştı.

Çok çok teşekkür ederim.