Koşullu biçimlendirme ile yazdırma

[policeman]

Koşullu biçimlendirme ve ETARİHLİ formülü hakkında

Koşullu biçimlendirme ile istediğimi yazdırabilir ve renklendirme yapabilirmiyim?.. Yoksa hem formül hem koşullu biçimlendirme mi uygulanacak?..
Örnek dosyamda olmasını istediğimi belirttim;yardımlarınızı bekliyorum..
Saygılarımla...

 

[hamitcan]

Sub Kosul()
    Cells.Interior.Color = xlNone
    For i = 2 To 13
        If Date - Cells(i, "h") >= 365 Then
            Cells(i, "i") = "DÜŞTÜ"
            Cells(i, "h").Interior.Color = vbGreen
            Cells(i, "i").Interior.Color = vbGreen
        End If
        If Day(Cells(i, "h")) = Day(Date) Then
            If Month(Cells(i, "h")) = Month(Date) Then
                If Year(Date) - Year(Cells(i, "h")) = 1 Then
                    Cells(i, "i") = "SON GÜN"
                    Cells(i, "h").Interior.Color = vbRed
                    Cells(i, "i").Interior.Color = vbRed
                End If
            End If
        End If
        If Day(Cells(i, "h")) = Day(Date) Then
            If Month(Date) - Month(Cells(i, "h")) = 2 Then
                If Year(Date) - Year(Cells(i, "h")) = 1 Then
                    Cells(i, "i") = "DİKKAT"
                    Cells(i, "h").Interior.Color = vbYellow
                    Cells(i, "i").Interior.Color = vbYellow
                End If
            End If
        End If
    Next
End Sub

şeklinde dener misiniz ?

 

[y_yilmaz1977]

Güzel ve faydalı bir çalışma olmuş.

 

[policeman]

Sayın Hamitcan ilginize çok teşekkür ederim ama benim makro bilgim sıfır...
Sayfayı açıp Sayfa1 > sağ klik > kod görüntüle > kopyaladığım kod'unuzu yapıştırıp kaydettim ve kapattım.Açtığımda makroları etkinleştirdim ama sonuç olumsuz....
Mümkünse formül ile olabilir mi? Ozaman işin özünüde kavrayabiliyorum....

 

[hamitcan]

Formül ile de yapılabilir ama benim zamanım yok. Bir dosya ekledim bu size fikir vercektir.

 

[policeman]

İlginize tekrar teşekkürler..

 

[policeman]

Koşullu biçimlendirme ve ETARİHLİ formülü hakkında

Sorduğum soruyu kendimce biraz olsun cevaplayabildim ama hala desteğe ihtiyacım var..
Yardımcı olabilirmisiniz!?..
Saygılarımla...

 

[hamitcan]

Koşullu biçimlendirme uygulamışsınız; bu alanlardaki biçimleri silmelisiniz. Ayrıca belli bir sayfa olayına göre çalışmıyor, kodu sizin aktif etmeniz gerekiyor. İstediğinizi yapmak için kodu tekrar düzenlemek gerekiyor.