Sütundaki aynı verileri renkli işaretleme

[Jeeday]

Ekteki dosyadaki elimdeki film listem kayıtlı. Bazıları mükerrerdir. İstediğim şey şu: D sütununda aynı olan isimleri bulup o isimlere ait hücreleri KIRMIZI'ya boyaması ve ayrıca yeni yazacağım bir ismi enter'ladıktan sonra hemen aratıp eğer mükerreri varsa hücreyi KIRMIZI yapmasıdır...

Böyle bir şeyin yapılması mümkün mü acaba?

 

[uzmanamele]

merhaba
ek dosya işinizi görür mü?
koşullu biçimlendirme yapılmışdır

 

[Jeeday]

hatalı sonuç veriyor

 

[Ali]

Aşağıdaki linkteki

Mükerrer (Çift) Kayıt Engelleme,Sayma Örnekleri

çalışmanın Mükerrer-5 adlı sayfasını inceleyiniz.

 

[Jeeday]

uymuyor...

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub RENKLENDIR()
Dim SAT As Integer
For SAT = 2 To Cells(65536, "D").End(xlUp).Row
Cells(SAT, "D").Font.ColorIndex = 0
Cells(SAT, "D").Interior.ColorIndex = xlNone
If WorksheetFunction.CountIf(Range("D2:D" & SAT), Cells(SAT, "D")) > 1 Then
Cells(SAT, "D").Font.ColorIndex = 3
Cells(SAT, "D").Interior.ColorIndex = 6
End If
Next
End Sub

 

[Ali]

uymuyor...

Hatalı ve uymuyor diye cevap yazacağınıza yapamadım şu nedenle deseniz daha iyi olacak.

 

[Jeeday]

Sub RENKLENDIR()
Dim SAT As Integer
For SAT = 2 To Cells(65536, "D").End(xlUp).Row
Cells(SAT, "D").Font.ColorIndex = 0
Cells(SAT, "D").Interior.ColorIndex = xlNone
If WorksheetFunction.CountIf(Range("D2:D" & SAT), Cells(SAT, "D")) > 1 Then
Cells(SAT, "D").Font.ColorIndex = 3
Cells(SAT, "D").Interior.ColorIndex = 6
End If
Next
End Sub

çok teşekkürler... yalnız yeni girdiğim aynı ismi hemen renklendirmiyor... kaydedip kapatıyorum. tekrar açtığımda da yeni girilenler için yapmıyor bu renklendirme işini

 

[uzmanamele]

merhaba
ek dosyada her 2 yöntemle çözüm mevcut.

koşullu biçimlendirmeyi seçerseniz yazdığınız veri varsa herc ikisinide anında renklendirir.
makro çözümü seçerseniz butonu tıklayın.

olmuyor demenize anlam veremiyorum!
nedenini belirmezseniz neden olmadığını anlamamızı beklemeyiniz.

 

[Jeeday]

yardım eden herkese teşekkürler... son gönderilen dosya çok işime yaradı.. herkese iyi bayramlar dilerim...