tarihe göre satırın renklenmesi?

[udentr2002]

Hocam ekli dosyada da anlatmaya çalıştım D stünundaki hücrelerde tarihler var o stündaki tarihlerden eğer bu günün tarihinden önce ise o hücrenin bulunduğu satır yeşil renkte olsun, eğer bu günün tarihinden sonra ise o satır kırmızı renkte olsun bunu kod ile yada koşullu biçimlendirme ile yappabilmemiz mümkünmü acaba şimdiden ilgilenen tüm arkadaşalrıma teşekkür ederim

 

[udentr2002]

Arkadaşlar uğraşınca oluyormuş yaptım
belki birine daha lazım olur diye dosyayı tekrar gönderiyorumm

 

[udentr2002]

bi sorum daha olacak

aynı mantıkla hücrenin değilde o o hücrenin bulunduğu satırın renklenmesi için ne yapabilirim

 

[nziya]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [d1:d50]) Is Nothing Then Exit Sub
For Each tarih In Range("d1:d50")
If tarih <= Date Then
tarih.EntireRow.Interior.ColorIndex = 4
Else
tarih.EntireRow.Interior.ColorIndex = 3
End If
Next
End Sub

 

[udentr2002]

hocam teşekkür ederim ama ben komple o satırın renklenmesi için ne yapabilrim demek istemiştim

 

[nziya]

Kodu sat&#305;r i&#231;in d&#252;zenlemi&#351;tim herhalde dikkat etmediniz.