sayfa rengi kırmızı olanlar

[hakan_demirkan]

sayfa rengi kırmızı olanlar listbox kutusunda gözükmesini istiyorum, ve aynı şekilde sarı renkte olanlarında ayrı bir listbox kutusunda gözümesini istiyorum arkadaşlar yardımcı olursanız çok sevinirim....

 

[Orion1]

Dim syf As Worksheet
ListBox1.Clear: ListBox2.Clear
For Each syf In Worksheets
    If syf.Tab.ColorIndex = 3 Then
        ListBox1.AddItem syf.Name
        ElseIf syf.Tab.ColorIndex = 6 Then
        ListBox2.AddItem syf.Name
    End If
Next

 

[hakan_demirkan]

çok tşk ederim üstad