Tarihlerde koşullu biçimlendirme yapma

[ozijikanu]

Arkadaşlar merhaba ekteki dosyada belirli olan tarihten önce satırın renklenmesini yapmaya çalıştım ama olmadı yardımlarınızı rica ediyorum.Şimdiden teşekkürler

 

[security]

Tarih 18 mart 2011 i geçtiginde d5 ve bo5 hücreleri renklenecektir...

Sub auto_open()
'Coder By Security 2011
If Date > CDate("18/03/2011") Then
Range("D5:BO5").Select
Selection.Interior.ColorIndex = 3
Selection.Font.ColorIndex = 2
Range("F5").Select
End If
End Sub

veya mesajla bildirim ilede olabilir...

Sub auto_open()
'Coder By Security 2011
If Date > CDate("18/03/2011") Then
 Range("D5:BO5").Select
    Selection.Interior.ColorIndex = 3
    Selection.Font.ColorIndex = 2
    Range("F5").Select
    MsgBox "Servis tarihi Geçti", vbCritical, "UYARI"
    End If
End Sub

 

[aydın0505]

Burada öncelikle 18.03.2011 tarihinin 40620 kod numarasına denk geliğini bilmek gerekir. (hücreleri biçimlendir den sayı yaparak) daha sonra koşullu biçimlendirmeden yeni kural deyip kurala da 40620 den büyük derseniz sorun hallolmuş olacaktır.

 

[ozijikanu]

Tarih 18 mart 2011 i geçtiginde d5 ve bo5 hücreleri renklenecektir...

Sub auto_open()
'Coder By Security 2011
If Date > CDate("18/03/2011") Then
Range("D5:BO5").Select
Selection.Interior.ColorIndex = 3
Selection.Font.ColorIndex = 2
Range("F5").Select
End If
End Sub

veya mesajla bildirim ilede olabilir...

Sub auto_open()
'Coder By Security 2011
If Date > CDate("18/03/2011") Then
 Range("D5:BO5").Select
    Selection.Interior.ColorIndex = 3
    Selection.Font.ColorIndex = 2
    Range("F5").Select
    MsgBox "Servis tarihi Geçti", vbCritical, "UYARI"
    End If
End Sub

merhaba yardımın için teşekkürler tam istediğim şekilde renkleniyor ama hücrelerdeki değerleri silince kırmızı işaret gitmiyor.olduğu gibi kalıyor.