Tekrarlayan kod Karşılaştırma (Aynı kodlu ürünler)

[mkultra]

Merhaba,
Sayım yaptığımız ürün kodlarını alt alta yazıyoruz. Ancak bu kodları stok programına girerken daha kolay olması açısından aynı kodlu ürünleri excel dokümanı içerisinde bulmasını istiyorum.

Örneğin
A1: 92477 B1: siyah C1: 44Beden
A2 .....
A3......
A4: 92477 B4: siyah C4: 44Beden

Bu iki satırdaki bilgiyi veya sadece A sütunundakilerin tekrarlayan ürünlerini bir şekilde bana belirtmesini istiyorum.

 

[Emir Hüseyin Çoban]

. . .

Aşağıdaki kodları bir kez çalıştırın.
Tablonuza koşullu biçimlendirme tanımlayacaktır.

Sub Makro1()

    Columns("A:A").Select
    Selection.FormatConditions.AddUniqueValues
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    Selection.FormatConditions(1).DupeUnique = xlDuplicate
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub

. . .