Ayrıntılı bir süzme işlemi

[fharunf]

Yapmak istediğim aramak istediğim kelimeyi bir hücreye gireceğim girdiğim kelimeyi d sütununda hangi hücre içeriyorsa o satırların listesini alabilmek ekli listede örnekledim

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. 1 ve 2 isimli sayfalarda A sütununda kullanılan formüller dizi formüllerdir. Hücreye yazdıktan sonra CTRL+SHIFT+ENTER ile tamamlamanız gerekir. Aksi halde hatalı sonuç üretebilir.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub ihalealanlar()
Dim sat, s As Long
Sayfa2.[a3:c1000].Clear
s = 3
    For sat = 2 To Sayfa1.Cells(65536, "d").End(xlUp).Row
        If Sayfa1.Cells(sat, "d") Like "*" & Sayfa2.[a1] & "*" Then
            Range(Sayfa1.Cells(sat, "a"), Sayfa1.Cells(sat, "c")).Copy Sayfa2.Cells(s, "a")
            s = s + 1
        End If
    Next
End Sub

Sub firmalar()
Dim sat, s As Long
Sayfa3.[a3:d1000].Clear
s = 3
    For sat = 2 To Sayfa1.Cells(65536, "c").End(xlUp).Row
        If Sayfa1.Cells(sat, "c") Like "*" & Sayfa3.[a1] & "*" Then
            Range(Sayfa1.Cells(sat, "a"), Sayfa1.Cells(sat, "d")).Copy Sayfa3.Cells(s, "a")
            s = s + 1
        End If
    Next
End Sub

 

[fharunf]

teşekkür

çok teşekkür ederim arkadaşlarım gerçekten harikasınız
bu işi sizin kadar iyi yapabilmeyi çok isterdim