Listedeki kelimelerde arama

[CMSTR]

Merhaba arkadaşlar, excel de yeniyim maalesef, sizlerin yardımı ile birşeyler öğrenmeye çalışıyoruz. Benim sorunum diyelimki bir kelime listesi var yandaki sütunada benim belirlediğim kelimeler var, ben istiyorumki ilk listenin içinden benim kendi yazdığım kelimeleri arasın ve içinde geçen kelimeleri ayrı bir yerde listelesin.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

=EĞERSAY($A$2:$A$30;B2)

Detaylı açıklama için;

Toplama Ve Sayma

.

 

[CMSTR]

Sonuç kısmına, sayı değeri çıkıyor, ben listedeki var olan kelimeyi yazmasını istiyorum.

 

[Ömer]

=EĞER(EHATALIYSA(KAÇINCI("*"&B2&"*";$A$2:$A$30;0));"";İNDİS($A$2:$A$30;KAÇINCI("*"&B2&"*";$A$2:$A$30;0)))

Bu şekilde deneyin.

 

[adsoft]

Sonuç kısmına, sayı değeri çıkıyor, ben listedeki var olan kelimeyi yazmasını istiyorum.

dosya ekte bu işini görür umarım

 

[CMSTR]

Yardımlarınız için teşekkür ederim arkadaşlar, fakat A sütununda haber le ilgili mesela çeşit çeşit 100 kelime var bunları nasıl listeleyecek?

Böyle olması lazım

A -------------------B------------- C -------------- D----------------

LİSTE ----------Aranacak--------Sonuç
Kelimeler
haber ---------------haber----------haber
haberler -------------klavye---------haberler
habergercek-------------------------habergercek
haberkomedi ------------------------haberkomedi
haberistan---------------------------haberistan
murat--------------------------------klavye
excel
klavye

 

[CMSTR]

Ekteki resimde tam olarak gösterdim arkadaşlar.

 

[mustafaine1]

Omer Bey`in yaptigina gore bir duzenleme daha yaptim, konu yanlis anlasilmis olabilir ama yinede ornegimi paylasmak istedim.

C2 icin;

=IFERROR(INDEX($B$1:$B$9,SMALL(IF(COUNTIF($A$2:$A$10,$B$2:$B$10)>0,ROW(INDIRECT("2:10"))),ROW(A1))),"")


=EĞERHATA(INDIS($B$1:$B$9;KÜÇÜK(EĞER(EĞERSAY($A$2:$A$10;$B$2:$B$10)>0;SATIR(DOLAYLI("2:10")));SATIR(A1)));"")

Umarım Turkce olan kismini dogru yazabilmsimdir.

 

[CMSTR]

Omer Bey`in yaptigina gore bir duzenleme daha yaptim, konu yanlis anlasilmis olabilir ama yinede ornegimi paylasmak istedim.

C2 icin;

=IFERROR(INDEX($B$1:$B$9,SMALL(IF(COUNTIF($A$2:$A$10,$B$2:$B$10)>0,ROW(INDIRECT("2:10"))),ROW(A1))),"")


=EĞERHATA(INDIS($B$1:$B$9;KÜÇÜK(EĞER(EĞERSAY($A$2:$A$10;$B$2:$B$10)>0;SATIR(DOLAYLI("2:10")));SATIR(A1)));"")

Umarım Turkce olan kismini dogru yazabilmsimdir.

Çok teşekkür ederim ama formul çalışmıyor, önceki mesajımdaki ekli dosyama uygulayabilirmisiniz bu formulu

 

[mustafaine1]

calismanizi tekrardan ekledim, 2003 versiyon kullaniyorsaniz iferror bolumunu if(iserror( seklinde duzenleyebilirsiniz, aksi halde calismama sebebi dizi formulu uygulamamaniz olmustur.

 

[CMSTR]

Arkadaşlar bu konuda ücretli destek almak istiyorum, istediğimi yapabilecek arkadaşlar Özel Mesaj ile cep tel nosunu yazarsa sevinirim.

 

[Ömer]

Module kopyalaıp çalıştırın.

Sub Listele()
 
    Dim i As Long, c As Range, Adr As Variant, sat As Long
 
    Application.ScreenUpdating = False
    Range("C2:C" & Rows.Count).ClearContents
 
    sat = 2
    For i = 2 To Cells(Rows.Count, "B").End(xlUp).Row
        With Range("A:A")
            Set c = .Find(Cells(i, "B"))
            If Not c Is Nothing Then
              Adr = c.Address
                Do
                  Cells(sat, "C") = Cells(c.Row, "A")
                  sat = sat + 1
                  Set c = .FindNext(c)
                Loop While Not c Is Nothing And c.Address <> Adr
            End If
        End With
    Next i
 
End Sub

.

 

[CMSTR]

Module kopyalaıp çalıştırın.

Sub Listele()
 
    Dim i As Long, c As Range, Adr As Variant, sat As Long
 
    Application.ScreenUpdating = False
    Range("C2:C" & Rows.Count).ClearContents
 
    sat = 2
    For i = 2 To Cells(Rows.Count, "B").End(xlUp).Row
        With Range("A:A")
            Set c = .Find(Cells(i, "B"))
            If Not c Is Nothing Then
              Adr = c.Address
                Do
                  Cells(sat, "C") = Cells(c.Row, "A")
                  sat = sat + 1
                  Set c = .FindNext(c)
                Loop While Not c Is Nothing And c.Address <> Adr
            End If
        End With
    Next i
 
End Sub

.

Çok teşekkür ederim, çalışıyor süper.