Farklı sütunlarda ki aynı kelimeyi filtre etmek...

[Di Meola]

Merhaba,

Elimde 2000 satır ve 13 sütünlu bir arşiv datası var. Bunların içinden 13 sütunda da aynı ismi bulup, listelemek istiyorum.

Örneğin;

"Ali Yüzen" ismi 2. sütunda sadece "Ali Yüzen" olarak,
4. sütunda "Ali Yüzen, Adem Demir" olarak,
7. sütunda "Ali" olarak geçmektedir.

Ben filtreye "Ali" yazdığımda bu 3 sütunda ki "Ali" ismini bulup listelemesini istiyorum ama yapamadım.

Yardımıcı olabilir misiniz?

Teşekkür ederim.

Ceyhun

 

[cemshan]

Hızlı çözüm için örnek dosya atmanızı öneriririm

 

[Ömer]

Merhaba,

Sayın cemshan'ın belirttiği gibi, sorularınızı örnek dosya ile desteklerseniz daha hızlı ve net yanıtlar alırsınız.

Kodlarda;
Aradığınız liste arşiv sayfası A:M arasında olduğu.
Aranan değerinde liste sayfasında A1 de olduğu düşünülerek.
Listeleme bu doğrultuda liste sayfası A2 den başlayarak alta alta yapılır. B2 de ise gelen değerlerin hücre adresleri yazar.

Sub Bul_Listele()
    
    Dim Sa As Worksheet, c As Range, Adr As String, sat As Long
    
    Set Sa = Sheets("[COLOR="red"]arşiv[/COLOR]")
    
    Application.ScreenUpdating = False
    Sheets("[COLOR="blue"]liste[/COLOR]").Select
    Range("A2:B" & Rows.Count).ClearContents
    
    sat = [COLOR="blue"]2[/COLOR]
    With Sa.[[COLOR="red"]A:M[/COLOR]] 'arşiv sayfası A:M sütunları arası
        Set c = .Find(Range("A1"))
        If Not c Is Nothing Then
            Adr = c.Address
            Do
                Cells(sat, "[COLOR="blue"]A[/COLOR]") = Sa.Cells(c.Row, c.Column)
                Cells(sat, "[COLOR="olive"]B[/COLOR]") = Sa.Cells(c.Row, c.Column).Address & " Hücresi"
                sat = sat + 1
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> Adr
        End If
    End With

    Application.ScreenUpdating = True
    
End Sub

.