Como detectar con Macros si rango de datos tiene un dato incorrecto

Me gustaría como puedo con una macro validar la información en una celda... Por ejemplo tengo una columna con varios datos y algunos de esos se repiten, y lo que necesito es pintar la celda de los datos dentro de la columna que sean iguales.

Aproximadamente podrían haber 80 datos diferentes, entonces necesitaría 80 colores diferentes y 80 variables diferentes para almacenar cada dato.

Existiría alguna forma más eficiente para hacer eso que no sea a través de recorrer cada celda y almacenar cada dato que sea diferente a las variables anteriores?

1

1 respuesta

Respuesta
1

Encontré esta respuesta en otra página que comparto con uds, por lo menos me sirvió para el fin que necesitaba.

Aunque no pinta cada celda de un color diferente me ayuda a ver las diferencias rápidamente.

Dim x As Long
Dim endrow As Long

endrow = Range("A50000").End(xlUp).Row

For x = endrow To 1 Step -1

If Application.WorksheetFunction.CountIf(Range("A1:A" & x), Range("A" & x).Text) > 1 Then

Range("A" & x).Interior.Color = RGB(200, 160, 35)
End If
Next x

End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas