Soru Liste Oluşturma

[çözüm.xls]

Merhaba,
"LİSTE" sayfasındaki "C5" hücresine birim ismi girip "LİSTELE" dediğimde, "GENEL" sayfasındaki sadece bu birime ait isimlerin sıra numarası vererek ve hücre kenar çizgilerini oluşturarak sıralanmasını istiyorum. Yardımcı olursanız sevinirim.
Teşekkürler.

 

[veyselemre]

Sub test()
    
    Dim s1 As Worksheet, s2 As Worksheet
    Dim i&, sat&, birim$
    
    Set s1 = Sheets("GENEL")
    Set s2 = Sheets("LİSTE")
    sat = 1
    
    s2.Range("B9:G" & Rows.Count).Clear
    birim = s2.[c5].Value
    
    For i = 2 To s1.Cells(Rows.Count, 2).End(xlDown).Row
        If s1.Cells(i, 2).Value = birim Then
            s2.Cells(sat + 8, 2).Value = sat
            s2.Cells(sat + 8, 2).HorizontalAlignment = xlCenter
            s2.Cells(sat + 8, 3).Value = s1.Cells(i, 3).Value
            s2.Cells(sat + 8, 3).Resize(, 5).MergeCells = True
            s2.Cells(sat + 8, 2).Resize(, 6).Borders.LineStyle = xlContinuous
            sat = sat + 1
        End If
    Next i

End Sub

 

[çözüm.xls]

Veyselemre bey yardımlarınız için çok tekekkür ederim.