Renk Sorgulama

[kerimce]

Merhaba

Forumda arattığım halde istediğim şekilde bir örnek bulamadım. Yardımcı olursanız memnun olurum.
Ekte sheet 1 ve sheet 2 de aynı isimler var . Benim istediğim sheet 2 de yeşil renkli görülen kayıtların sheet 1 e yeşil olarak işaretlenmesi.

Şimdiden teşekkürler.

 

[dEdE]

Merhaba,
Dosyanız ilişiktedir.

Sub Boya()
Set s1 = Sheets("Sheet1")
Set s2 = Sheets("Sheet2")
    For i = 1 To s2.[A65536].End(3).Row
        If s2.Cells(i, 1).Interior.ColorIndex = 50 Then _
        s1.Cells(i, 1).Interior.ColorIndex = 50
    Next
End Sub