Sütünda aynısını işaretleme

[ommerk]

A sütünunda yazdığım rakam+harf karışımı yazılar var
sd12345 gibi hepsi bu formatta
aynısını yazdığım zaman rengini kırmızıya çevirmek istiyorum.

 

[İhsan Tank]

A sütünunda yazdığım rakam+harf karışımı yazılar var
sd12345 gibi hepsi bu formatta
aynısını yazdığım zaman rengini kırmızıya çevirmek istiyorum.

merhaba

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
MsgBox "Mükerrer Veriler Boyanmıştır", , "www.excel.web.tr"
End Sub

bunu butona atıyarak kullanabilirsiniz.
not : kod alıntıdır.
kolay gelsin

 

[ommerk]

Teşekkür ederim

 

[1Al2Ver]

Alternatif,

Koşullu Biçimlendirme, veri A2'den başlıyor kabul edildiğinde, A2:A aralığını fare ile seçin ve

Formül kısmına ; =EĞER(EĞERSAY(A:A;A2)>=2;1;0) yazıp biçimden kırmızı rengi seçin,

 

[İhsan Tank]

Teşekkür ederim

rica ederim
iyi çalışmalar :mutlu:

 

[Orion1]

Bu iş için en iyi yöntem koşullu biçimlendirmedir.
Sayın 1al2ver in fonksiyonu işinizi görecektir.

 

[ommerk]

teşekkür ederim yardımlarınız için
ancak benim kullandığım excel ingilizce

 

[1Al2Ver]

Merhaba,

Countif = Eğersay
İf = Eğer

 

[ferragamo]

bu kodu nereye ekleyeceğiz butonu nasıl yapacağız?