Makro ile 2 şarta bağlı hücre renklendirme

[omerturan]

Merhaba
Aşağıda kodları yazılı dosyada butona bastığında I sütunundaki değer 300 ise ve 0 dan büyük ise hücre rengini kırmızı yap şekliden bir makro yazdım. fakat Hücre değeri 0,50 den fazla ise kırmızı yapıyor 0,00- 0,50 arasında ise renk değişmiyor. yardımcı olabilirseniz sevinirim. Teşekkürler

Sub Düğme1_Tıklat()
For i = 2 To 1000

If (Range("f" & i).Value And Range("I" & i).Value = "300") > 0 Then

Range("f" & i).Interior.Color = 255



Else

Range("f" & i).Interior.ColorIndex = xlNone




End If

Next i


End Sub

 

[askm]

Sub Düğme1_Tıklat()
Dim sayi1, sayi2 As Double
On Error Resume Next
sayi1 = 0
For i = 4 To 10
sayi2 = CDbl(Range("f" & i).Value)
If sayi2 > sayi1 And Range("I" & i).Value = "300" Then
    Range("f" & i).Interior.Color = 255
Else
    Range("f" & i).Interior.ColorIndex = xlNone
End If
Next i
End Sub

 

[omerturan]

teşekkürler

 

[askm]

Rica ederim.