belirli verileri bulunca renklendirme makrosu

[turkanet]

Merhaba
ekteki dosyada data sayfasının e sütununda veriler var. aktif sayfanın c sütununda data nın e sütunundaki verilerden varsa ilgili satırın a:J aralığını açık mavi renklendirmesini istiyorum. yardımlarınız için şimdiden teşekkür ederim.

[Orion1]

Buyurun. 

Kod: [Seç]

Sub mavi59()
Dim s1 As Worksheet, sat1 As Long, sat2 As Long, i As Long
Sheets("Sayfa1").Select
Range("A:J").Interior.ColorIndex = xlNone
Set s1 = Sheets("Data")
sat1 = Cells(Rows.Count, "C").End(xlUp).Row
sat2 = s1.Cells(Rows.Count, "E").End(xlUp).Row
For i = 1 To sat1
    If WorksheetFunction.CountIf(s1.Range("E1:E" & sat2), Cells(i, "C").Value) > 0 Then
        Range("A" & i & ":J" & i).Interior.Color = vbCyan
    End If
Next i
End Sub