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.

 

[Emir Hüseyin Çoban]

. . .

Sub KOD()
Application.ScreenUpdating = False

Dim S1 As Worksheet
Dim S2 As Worksheet
Set S1 = Sheets("Sayfa1")
Set S2 = Sheets("Data")
S1son = S1.[C65536].End(3).Row
S1.Range("A1:J65536").Interior.ColorIndex = xlNone

For i = 1 To S1son
If WorksheetFunction.CountIf(S2.Range("E:E"), S1.Cells(i, "C")) > 0 Then
S1.Range("A" & i & ":J" & i).Interior.Color = 15773696
Else: End If
Next i

Set S1 = Nothing
Set S2 = Nothing
i = Empty
S1son = Empty
Application.ScreenUpdating = True
MsgBox " B İ T T İ "
End Sub

. . .

 

[turkanet]

minnettarım