Renklendirme

[policeman]

Ekteki örnek çizelgede aynı T.C. Kimlik numarasına sahip ama değişik S.G.K.'sı olanlar;Koşullu biçimlendirme veya başka bir yöntemle renklendirilebilirmi?...
Yardımcı olabilirseniz sevinirim...
Saygılarımla...

 

[fedeal]

merhaba,dosya ekte

Sub renklendir()
Sheets("SAYFA1").Range("H2:H65000").Interior.ColorIndex = xlNone
c = 3
For i = 2 To Sheets("SAYFA1").Range("e65536").End(xlUp).Row
If Sheets("SAYFA1").Cells(i, "e").Value = "" Then GoTo atla
Set v = Sheets("SAYFA1").Range("e1:e" & i - 1).Find(Cells(i, "e"))
If Not v Is Nothing Then
s = Sheets("SAYFA1").Cells(v.Row, "aa").Value
Sheets("SAYFA1").Range("h" & i).Interior.ColorIndex = s
Else
If c = 56 Then c = 3
Sheets("SAYFA1").Cells(i, "aa").Value = c
Sheets("SAYFA1").Range("h" & i).Interior.ColorIndex = c
c = c + 1
End If
atla:
Next
Sheets("SAYFA1").Columns("aa:aa").ClearContents
End Sub

iyi günler.

 

[F1]

Koşullu biçimlendirme ile ekteki gibi mümkün.

 

[policeman]

sayın fedeal ve sayın F1 teşekkürler..

 

[policeman]

sayın F1
koşullu biçimlendirmeye göre eklenmiş dosyamda anlattığım üzere değişiklik yapabilirmisiniz...