Mükerrer verilerin işaretlenmesi

[Carpintero]

Merhabalar,
ekte ki dosya da bir makro mevcut.
Küçük bir revizyon gerekli lakin bir türlü
düzgün sonucu aldıramadım. Yardımcı olunur ise
çok sevinirim.

http://www.dosyaupload.com/4Pl6

 

[mahmut011]

merhaba,
makro çok bilmiyorum. iki for kullanarak yaptım.

With CreateObject("Scripting.Dictionary")
        For X = 2 To UBound(Dizi, 1)
            If Not .Exists(Dizi(X, 1)) Then
                .Item(Dizi(X, 1)) = Dizi(X, 1)
            Else
            .Item(Dizi(X, 1)) = -10 ' hücre değerine eşit olmayacak bir değer
            End If
        Next
        For X = 2 To UBound(Dizi, 1)
            If .Item(Dizi(X, 1)) = -10 Then
                Dizi(X, 2) = "Mükerrer"
                
            
            End If
        Next
    End With

 

[Carpintero]

Teşekkür ederim sayın mahmut011,
kod işe yaradı. ellerinize sağlık.