tabloda birden fazla satırda bulunan bir verinin bulunduğu satırların ilk hücresini çekmek

[toksoyg]

Merhaba,
tablomda birden çok sütun ve satır mevcut.
birden fazla satırda bulunan bir değeri arayıp bulunduğu her satırdan birnci hücresindeki bilgiyi almak istiyorum.
örneğin aşağıdaki veride kapı kelimesini aradığımda bana ali, ahmet, ve hakan kelimelerini vermesini istiyorum.:
ali kalem kitap masa kapı top
ahmet ekmek kapı tokmak kilim
osman top pencere ekmek kitap
ayşe kilim halı koltuk kitap
hakan reçel kitap halı kapı

 

[Ömer]

Merhaba,

A sütununda değerleri arar B sütununa yazar.

Sub yaz()

    Dim sat As Long, c As Range, Adr As String
    
    Application.ScreenUpdating = False
    Range("B2:B" & Rows.Count).ClearContents
    
    sat = 2
    Set c = [A:A].Find("*kapı*")
    If Not c Is Nothing Then
        Adr = c.Address
        Do
            Cells(sat, "B") = Split(Cells(c.Row, "A"))(0)
            sat = sat + 1
            Set c = [A:A].FindNext(c)
        Loop While Not c Is Nothing And c.Address <> Adr
    End If
    
End Sub

Eğer istediğiniz bu değilse sorunuzu örnek dosya ekleyerek açıklar mısınız.

Dosya Yükle - Dosya Upload

Dosyalarınızı ücretsiz yükleyebilir ve paylaşabilirsiniz. Dosya yükleme, Dosya Upload ücretsiz.

dosya.co

 

[kulomer46]

Merhaba

Alternatif Kelime Ara Programı Ek 'tedir.

Selamlar...

Bilgi

Bilgi

dosyam.org

 

[Korhan Ayhan]

Bu da formülle alternatif olsun;

Verilerinizin A1:F5 aralığında olduğunu varsaydım.

DİZİ formülüdür.

=IFERROR(INDEX($A$1:$A$5;SMALL(IF($A$1:$F$5="KAPI";ROW($A$1:$F$5));ROW(A1)));"")

IFERROR = EĞERHATA
INDEX = İNDİS
SMALL = KÜÇÜK
IF = EĞER
ROW = SATIR