Bir nevi süzme işlemi

[hyaldir]

Ekte göndermiş olduğum sayfada isteğim, istek sıra no ya yazdığım rakamdan
listede var ise hepsinin alt alta sırayla hepsinin gelmesi.
İndis le denediğimde yalnız en üstteki geliyor diğerleri gelmiyor.
Ne yapmalıyım
Şimdiden teşekkürler...

 

[Orion1]

Ekli dosyayı inceleyiniz.
Butona basınız.

Sub listele()
Sheets("sipariş").Select
Set s1 = Sheets("LİSTE")
If Range("B1").Value = "" Then
    MsgBox "B1 Hücresine aranacak değeri giriniz..!!", vbCritical
    Exit Sub
End If
Application.ScreenUpdating = False
sat = 4
Range("A4:E65536").Clear
For i = 2 To s1.Cells(65536, "A").End(xlUp).Row
    If s1.Cells(i, "A").Value = Range("B1").Value Then
        adrs1 = Range(Cells(i, "A"), Cells(i, "E")).Address
        adrs2 = Range(Cells(sat, "A"), Cells(sat, "E")).Address
        Range(adrs2).Value = s1.Range(adrs1).Value
        sat = sat + 1
    End If
Next i
Set s1 = Nothing
Application.ScreenUpdating = True
MsgBox "Listeleme Tamamlandı..", vbOKOnly + vbInformation
End Sub

 

[Ferhat Pazarçevirdi]

Merhabalar

Alternatif olarak; sipariş sayfasındaki A4 hücresine aşağıdaki formülü giriniz.

=KAYDIR(LİSTE!A$1;BÜYÜK((LİSTE!$A$1:$A$766=$B$1)*SATIR(LİSTE!$A$1:$A$766);SATIR(A1))-1;0)

Daha sonra Ctrl+Shift+Enter tuşlarına birlikte basın. Çünkü bir dizi formülüdür. Bunu yaptığınızda, {} Parantezlleri formülün başına ve sonuna otomatik yerleştirilecektir. Bu formülü aşağı ve yukarı kopyalayınız.

 

[hyaldir]

Orion2 ve FPC arkadaşların göstermiş oldukları ilgi için sonsuz minnattarlığımı sunarım. Teşekkürler.....
İstediğimdende iyi oldu.....

 

[Orion1]

Orion2 ve FPC arkadaşların göstermiş oldukları ilgi için sonsuz minnattarlığımı sunarım. Teşekkürler.....
İstediğimdende iyi oldu.....

Rica ederim.
İyi çalışmalar.