Bir hücrenin değerine göre tüm satırı boyamak

[hkahraman1983]

Merhaba arkadaşlar,

Benim garip bir isteğim olacak. Ekteki gibi bir dosyam var. Şimdi G sütunundaki tarih bugünkü tarihten eski ise, yani tarihi geçtiyse, tarihin bulunduğu tüm satırın rengini gri olarak değiştirecek. Geçmediyse aynen kalacak.

Böyle bir konuda yardım edebilecekmisiniz?

 

[Murat OSMA]

Aşağıdaki kodu deneyiniz;

[SIZE="2"]Sub Emre()
    Dim i As Long
    For i = 3 To Range("A65536").End(3).Row
    If Cells(i, 7) < VBA.Date Then
    Rows(i).Resize(1, 12).Interior.ColorIndex = 15
    End If: Next i: i = Empty
End Sub[/SIZE]

 

[hkahraman1983]

süper oldu çok teşekkür ederim.

 

[Murat OSMA]

Rica ederim, iyi günler.