karşilaştırma makrosu

[ibrahimsomar]

merhaba,
7 ve 9. sütundaki değerleri karşılaştırmak istiyorum ve 7. sütun değeri 9. sütun değerinden büyükse (1,13) deki rengi değilse (2,13) rekli olmasını istiyorum fakat hata veriyor. kodum aşağıdadır.

tşk
Sub karsilastirma()
'
' karsilastirma Makro
'
For I = 1 To 20
Cells(I, 1).Activate


If Cells(I, 7) > Cells(I, 9) Then

boyamakodu = Cells(1, 13)
Else
boyamakodu = Cells(2, 13)

With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = boyamakodu
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Next

'
End Sub