Renkli Hücre Kopyalama

[kemalist]

Arkadaşlar Merhaba;Benim yapmak istediğim "U" sütununda bulunan Yeşil renkli bulunan hücreleri R7 hücresine kopyalamak.
İlginize şimdiden çok teşekkür ederim.

Örnek dosya ektedir.

 

[Korhan Ayhan]

Deneyiniz.

Sub KOPYALA()
    Range("R:R").Clear
    Satir = 7
    Son = Cells(Rows.Count, "U").End(3).Row
    For Each Veri In Range("U7:U" & Son)
        If Veri.Interior.ColorIndex = 43 Then
            Veri.Copy Cells(Satir, "R")
            Satir = Satir + 1
        End If
    Next
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[kemalist]

Sayın Korhan Ayhan çok teşekkür ederim