ernesto0001

Elsa Matilde respondió: Para esto no necesitarías una rutina si pudieras contar con una col auxiliar donde colocar una fórmula que dará 0 si no está repetido. Luego podes utilizar un filtro para obtener los de valor <> 0. También podes tener una rutina que te recorra esa...

Elsa Matilde respondió: Te ajusto una parte de la rutina, a partir del While hasta el Wend: While ActiveCell.Value <> "" If ActiveCell.Value = Valor Then Selection.Interior.Colorindex = 3 '(elegí tu color) contador = contador + 1 Else Valor = ActiveCell.Value End if...