renk durumuna öre sınıflandırma

[jinken]

arkadaşlar ekte gönderdiğim dosyada siparişi olan ürünler var. toplam sayfasında I6 sütununda renk durumlarını belirttim.
siyah olanların oluşturmuş olduğum sayfada (siyah) sayfasında, beyaz olanların beyaz sayfasında gösterilmesini istiyorum. kahve olanlar kahvede, beyaz olanlar beyazda gösterilecek.
şimdiden teşekkür ederim.

 

[jinken]

dosya ektedir.

 

[Orion1]

Ekli dosya şeklinde tasarladım.
Dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim sh1 As Worksheet, sat1 As Long, sat2 As Long, i As Long
Dim sh2 As Worksheet
'coder : evrengizlen@hotmail.com
'date : 24/09/2011
Application.ScreenUpdating = False
Sheets("rapor").Select
Set sh2 = Sheets("rapor")
sh2.Range("A2:F65536").ClearContents
Set sh1 = Sheets("LİSTE")
sh1.Range("A1").AutoFilter
sat1 = sh1.Cells(65536, "A").End(xlUp).Row
sat2 = 2
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
        sh1.Range("A1").AutoFilter field:=5, Criteria1:="=*" & ListBox1.list(i, 0)
        sh1.Range("A2:F" & sat1).SpecialCells(xlCellTypeVisible).Copy sh2.Range("A" & sat2)
        sat2 = sh2.Cells(65536, "B").End(xlUp).Row + 1
    End If
Next
If sh1.AutoFilterMode Then sh1.AutoFilterMode = False
Application.ScreenUpdating = True
Unload Me
MsgBox "İşlem tamamlandı.", vbOKOnly + vbInformation, "evrengizlen@hotmail.com"
End Sub