Marcar Duplicados

Uno de los problemas mas frecuentes que nos encontramos los contadores en nuestro trabajo es tener duplicidad de elementos en una lista donde no debe de tenerlos.
Cuando estamos trabajando con una lista de unos cuantos elementos no hay problema, saltan a la vista, pero cuando la lista es de 5000 renglones y por algun motivo no es aconsejable ordenar estamos en problemas.

Para esto propongo usar el formato condicional

1.- Format-Contional Formating
2.- “Formula is” y escribir lo siguiente: “=COUNTIF($F$18:$F$22,F18)>1″
Donde “$F$18:$F$22″ es el rango donde se pueden repetir los valores y “F18″ es la primera celda de ese rango (Noten que que tiene los signos “$”)
3.- En el boton “Format” agrega los formatos que sean de tu gusto y da click en “Ok” para finalizar

Si esto es de tu agrado y tienes que hacerlo continuamente tienes la opcion de usar VBA para automatizarlo, el codigo seria el siguiente:
Sub Mark_Duplicates()
    Dim Rng_Cmplte As String
    Dim Rng_Cell As String    
    Rng_Cmplte = Selection.Address
    Rng_Cell_a = Range(ActiveCell.Address).Address
    Rng_Cell_b = Replace(Rng_Cell_a, “$”, “”)
   
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        “=COUNTIF(” & Rng_Cmplte & “,” & Rng_Cell_b & “)>1″
    With Selection.FormatConditions(1).Font
        .Bold = True
        .Italic = False
        .ColorIndex = 3
    End With
    Selection.FormatConditions(1).Interior.ColorIndex = 6
End Sub

Posiblemente este codigo sea sujeto a perfeccionarse pero hasta ahora lo he usado frecuentemente sin ningun problema.

Se aceptan sugerencias

 

Publicado por Ricardo López-Herrera el 21 mayo, 2008

http://issolved.wordpress.com/2008/05/21/marcar-duplicados/