Tarihe bağlı Renklendirme .

[Erhan Üstünel]

sorumu ekli dosyada belirttim, koşullu biçimendirmede yapmaya çalıştım ama pek hoş olmadı,
yardımcı olucak arkadaşlara şimdiden teşekkürler..

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Sub renklendir()
ay = Format([l2], "mmmm")
For i = 5 To 35
If Format(Cells(i, 7), "mmmm") = ay Then
Cells(i, 7).Interior.ColorIndex = 10
Else
Cells(i, 7).Interior.ColorIndex = xlNone
End If
Next
End Sub

not:
L2 hücreye 01.06.2010 yazıp, özel sayı biçimini "aaaa" olarak düzenleyiniz.

 

[Erhan Üstünel]

teşekkürler hocam,
bende şöle bi formül geliştirdim