Renkli hücrelerin olduğu satırları süzüp aktarmak

[odinnn]

Merhabalar. Aşağıdaki linkte basit bir örneği verilmiş bir tablom var. Burada sayfa 1 de farklı şubelerin tutarları karşılaştırılıyor ve fark varsa koşullu biçimlendirme ile fark olan hücreler kırmızıya boyanıyor. Benim istediğim kırmızıya boyalı hücrelerin olduğu satırların tamamını veya mümkünse ilk üç sütununu sayfa 2 ye kopyalamak.
Filtrelemenin mutlaka renge göre yapılması gerekiyor. Çok teşekkür ederim.



http://s5.dosya.tc/server/wRUFyf/s_zaktar.xlsx.html

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub AKTAR()
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    S2.Range("A:C").ClearContents
    S1.Range("$A$1:$G$" & S1.Rows.Count).AutoFilter Field:=7, Criteria1:=RGB(255, 199, 206), Operator:=xlFilterCellColor
    Satir = S1.Cells(S1.Rows.Count, 1).End(3).Row
    S1.Range("$A$1:$C$" & Satir).Copy S2.Range("A1")
    S1.Range("$A$1:$G$" & S1.Rows.Count).AutoFilter Field:=7
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[odinnn]

Korhan bey, denedim ve tam istediğim gibi olduğunu gördüm. Elinize sağlık, çok teşekkür ederim.