koşullu liste oluşturma

[erdenek]

üstadlar linkteki dosyada c sütununda yer alan isimleri yazı tipi rengi siyah olanları listeden silip silinenleri sayfa 2 listelenmesini nasıl yaparız?burada personel az elimde 2000 den fazla personel var.bir de c sütununda her yazı tipi rengini siyah yaptığım silinip sayfa 2 ye aktarılsın


http://www.dosya.tc/server26/YjHsAo/16.03.2014.xlsx.html

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub AKTAR()
    Dim S1 As Worksheet, S2 As Worksheet
    Dim X As Long, Satir As Long
    
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")

    Satir = S2.Cells(S2.Rows.Count, 1).End(3).Row
    
    For X = 4 To S1.Cells(S1.Rows.Count, 3).End(3).Row
        If S1.Cells(X, 3).Font.ColorIndex = -4105 Then
            S1.Rows(X).Copy S2.Cells(Satir, 1)
            S1.Range("B" & X & ":H" & X).ClearContents
            Satir = Satir + 1
        End If
    Next
    
    S1.Range("B4:H" & S1.Rows.Count).Sort S1.Range("B4"), xlAscending
    Satir = S1.Cells(S1.Rows.Count, 2).End(3).Row + 1
    S1.Range("A" & Satir & ":A" & S1.Rows.Count).ClearContents
    
    Set S1 = Nothing
    Set S2 = Nothing
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[erdenek]

üstadım ellerine sağlık

 

[kayserciyes]

Dosyasını eklediğim listeyi kod kullanarak nasıl oluştura bilirim

Karşısın da 0 sıfır olan isimler o sütunun altına aşağı doğru listelensin istiyorum

yardımınız için teşekkür ederim...