A.sütunuda yazanların içerisinde arama;

[abbasonline]

A.sütunuda yazanların içerisinde (I6) da yazanı bulup, listelemek;

 

[İhsan Tank]

A.sütunuda yazanların içerisinde (I6) da yazanı bulup, listelemek;

formül ile isterseniz eki inceleyiniz
gri boyalı hücredeki formüller diziformülüdür.

Dizi Formülü Formül Hücreye Girildikten Sonra Enter Tuşuna Basmadan Ctrl+Shift+Enter Tuş Kombinasyonu İle Aktif Olmaktadır. Formülün Başında Ve Sonunda { } Bu İşaretler Çıkar Elle Eklediğiniz Takdirde Formül Hata Verir.

formülde 1000 satır baz alınmıştır.

1000 satır'ı değiştirmek için ctrl+h yapın aranan değere $1000 yeni değere $10000 yazın ve tümünü değiştir deyin.
$10000 olan yeri kendinize göre ayarlayınız.

 

[abbasonline]

Makro ile olursa daha iyi olur çünkü formulleri kullanıcılar tam anlamadığı için yalnışlıkla silebiliyorlar, Teşekkürler.

 

[Ömer]

Merhaba,

Module kopyalarak çalıştırınız..

Sub Listele()
 
Dim c As Range, sat As Long, ilkadres As Variant
 
Range("I7:J" & Rows.Count).ClearContents
 
sat = 7
With Range("A:A")
    Set c = .Find(Range("I6"), LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        ilkadres = c.Address
        Do
            Cells(sat, "I") = Cells(c.Row, "A")
            Cells(sat, "J") = Cells(c.Row, "B")
            sat = sat + 1
            
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> ilkadres
    End If
End With
 
End Sub

.

 

[abbasonline]

Teşekkürler, ellerinize sağlık Ömer bey.