Tarihe gore bicimlendirme ve formul

[ozgur1234]

arkadaşlar merhaba;

ekli dosyada yardımınıza ihtiyacım var.
amacım takip ettiğim müşteriler ile ilgili aksiyonlarımı tarihe göre girmek ve 10 gün için herhangi bir aksiyon yapmadığım müşterileri farklı renklerle boyamak.

ekli dosyada 2 nci satıra bakacak olursanız aksiyonları E2 den XFD2 ye kadar uzadığı kadar yazmak ve bu aralıkta en büyük tarihi bulup bugünden çıkarıp 10 günden büyük ve küçük olmasına göre boyamak.

yaşadığım sorun ise tarih girilen hücreye göre boyanan alanın değişiklik göstermesi. ben ise A2:C2 hücrelerinin her durumda boyanmasını değişiklik göstermemesini istiyorum. nerede yanlış yapıyorum bilemedim.

 

[hamitcan]

Bu şekilde deneyin.

Sub TariheGoreRenk()
    Dim A As Date
    Cells.Font.Color = xlblack
    [A2].Select
    Do While ActiveCell <> ""
        A = WorksheetFunction.Max(Rows(ActiveCell.Row))
            If CLng(Date - A) >= 10 Then
                Range(Rows(ActiveCell.Row).Find(A).Address).Font.Color = vbRed
            ElseIf CLng(Date - A) < 10 Then
                Range(Rows(ActiveCell.Row).Find(A).Address).Font.Color = vbBlue
            End If
        ActiveCell.Offset(1, 0).Select
    Loop
End Sub