koşullu biçimlendirme yardım....

[airfresh]

Dosya ektedir. Gerekli açıklamayı dosya içinde yaptım. Yardımalrınızı bekliyorum. Saygılarımla...

 

[mbasaranyt]

dosyayı inceleyin

 

[hamitcan]

Satırlara, koşullu biçimlendirme uygulamak, bana herzaman zor gelmiştir. Kod ile rahatlıkla yapılabiliyor.
Alternatif;

Sub KosulluBicimlendirmeUygula()
    Cells.FormatConditions.Delete
    For i = 2 To 5
    With Worksheets(1).Range("a" & i & ":h" & i).FormatConditions _
            .Add(xlExpression, xlEqual, "=$f$" & i & "=bugün()")
            With .Interior
            .Color = vbRed
            End With
    End With
    With Worksheets(1).Range("a" & i & ":h" & i).FormatConditions _
            .Add(xlExpression, xlgretar, "=$f$" & i & ">bugün()")
            With .Interior
            .Color = 49407
            End With
    End With
    Next
End Sub