Koşullu Mükerrer Hücre için Renk Değiştirmek

[darkgod]

Merhaba

C sütununda mükerrer kayıt aranıp ilk satırını bırakıp geri kalan mükerrer HÜCRE'nin yazı rengini beyaz yani görünmez yapmak istiyorum.
Aynı şekilde C sütununda mükerrer bulduğu hücrenin D sütunuda mükerrer olacağı için D hücrelerininde ilk satırını bırakıp sonrakileri beyaz renk yani görünmez yapmak istiyorum. Fakat mükerrer kayıt araması C sütunu için yapılacak yani D sütunun da yapılmayacak.

Toplam satır sayımız 9256 olup mükerrer araması C8 satırında başlaması gerekiyor.

Ekran görüntüsü anlattığımı daha iyi ifade edecektir.
Sayfa yapısı bozulmaması adına link olarak ekliyorum.
http://i.hizliresim.com/ng5WN0.jpg

Yardımcı olursanız çok sevinirim.

 

[darkgod]

Merhaba sorunum ve yardıma ihtiyacım devam etmektedir.

Yardımlarınızı bekliyorum.

Teşekkürler.

 

[darkgod]

Sorunumu çözdüm aynı sorunu yaşayabilecek kişiler için cevap yazıyorum.

Bu forumda mükerrer veride hücrenin içini boşaltma makrosu buldum.

Option Explicit
Sub mükerrer_olanları_temizle_1967()
'Konu       :   Mükerrer Olanları Temizle
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
Dim SAT As Long, SAY As Long
Application.ScreenUpdating = False
With WorksheetFunction
For SAT = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If .CountIf(Range("A1:A" & SAT), Cells(SAT, "A")) > 1 Then
SAY = SAY + 1
Cells(SAT, "A")[B].Font.ColorIndex = 2[/B]
End If: Next: End With
Application.ScreenUpdating = True
MsgBox SAY & " Sayıda Mükerrer Temizlendi" & vbLf & Application.UserName, _
vbInformation, "asi_kral_1967"

End Sub

Şu kısmı Cells(SAT, "A").ClearContents
Cells(SAT, "A").Font.ColorIndex = 2
Şu şekilde değiştirdim ve mükerrer hücrelerin ilk satırı kalacak diğer satırların yazı rengi beyaz olacak şekilde değiştirdim.

Bu yaptığımı verimi başka bir sayfaya kopyalayarak A sütununa yerleştirerek yapmıştım. Hemen B sütununa diğer mükerrer verimi kopyaladım.
Filtre ile beyaz olanları süzdüm doğal olarak B sütununda ki mükerrer verim de gelmiş oldu onu da beyaz yaparak sonuca ulaştım.