Eski tarihlii kayıtları biçimlendirme

[gelibolu]

Bu günden 15 gün önceki kayıtları koşullu biçimlendirme ile
dikkatimi çekmesi için kırmızıya boyamak istiyorum.

Mümkünse makrolu çözümü de istiyorum. İyi geceler....

 

[Orion1]

Dosyanız ektedir.

Sub renklendir_59()
Range("A1:I65536").Interior.ColorIndex = xlNone
For f = [f65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("f1:f" & Rows.Count), Cells(f, "f")) > 1 Then Range("A" & f & ":I" & f).Interior.ColorIndex = 7 ' rows count yerine istenen sütun no yazılabilir.
Next
End Sub

 

[Orion1]

Pardon yanlış anlamışım.
Dosyanız ektedir.

 

[gelibolu]

Teşekkür ederim koşullu biçimlendirme tamam ama makrolu çözüm sadece çifleri boyuyor...