pozitif sayı içeren hücreye renk vermek

[fatma_07]

Merhaba,

H sutununda negatif , pozitif ve 0,00 değeri içeren sayılar var. Sutündaki pozitif sayı içeren hücreleri renklendirmek istiyorum. Koşullu biçimlendirme değil de bunu makro ile yapmam lazım. Yardım rica ediyorum.

iyi çalışmalar,

 

[Orion1]

Buyurun.

Sub kirmizi_59()
Dim sonsat As Long, i As Long
sonsat = Cells(Rows.Count, "H").End(xlUp).Row
For i = 1 To sonsat
    Range("H" & i).Interior.ColorIndex = xlNone
    If Cells(i, "H").Value > 0 Then Range("H" & i).Interior.Color = vbRed
Next i
MsgBox "Bitti"
End Sub

 

[fatma_07]

emeğinize sağlık çok teşekkür ederim..

 

[Orion1]

emeğinize sağlık çok teşekkür ederim..

Rica ederim.
iyi çalışmalar.