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 Respuesta
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
