Soru Liste Oluşturma

Katılım
7 Eylül 2012
Mesajlar
28
Excel Vers. ve Dili
Türkçe 2003
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.
 

Ekli dosyalar

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,553
Excel Vers. ve Dili
Pro Plus 2021
Kod:
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
 
Katılım
7 Eylül 2012
Mesajlar
28
Excel Vers. ve Dili
Türkçe 2003
Veyselemre bey yardımlarınız için çok tekekkür ederim.
 
Üst