Mükerrer kayıtların renklenmesi

[noxious]

Forumda arattığımda bir kaç örnek buldum ama benim sorunuma derman olmadılar.

Elimde bir çok kayıt var ve bunlar genellikle değişik tarihlerde mükerrer işleme tabi tutulmuşlar

Tarih baz alınarak 1. kayıt renksiz kalacak sonraki kayıtlar renklenecek

Mükerrer kayıtlarda hücrelerde değişken veriler var ama adres bölümü değişmiyor istediğim o adrese yapılan mükerrer kayıtlarda ilk tarih baz alınacak renksiz olacak diğer tarihlerdeki veriler renklenecek.

ekte örnek sundum buna göre bir kod bilen varsa yardımcı olurmu


Sub mukerrer()
For a = 1 To [a65536].End(xlUp).Row
If WorksheetFunction.CountIf(Columns(1), Cells(a, 1)) > 1 Then Cells(a, 1).Interior.ColorIndex = 3
Next
End Sub

Bu makroyu uyarlıyabilirmiyiz

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub mukerrer()
For a = 3 To [b65536].End(3).Row
If WorksheetFunction.CountIf(Range("e3:e" & a), Cells(a, "e")) > 1 Then
Range("b" & a & ":I" & a).Interior.ColorIndex = 6
End If
Next
End Sub