Aplicar a una forma el color de relleno de una celda que está en formato condicional
Lo que pretendo es aplicar a una forma el mismo color de relleno que el que tiene una celda que está en formato condicional. El objetivo es crear un mapa de provincias con los mismos colores de relleno que tienen las celdas de datos en formato condicional. El resultado es un mapa de provincias que cambian de colores según los datos introducidos en el rango de celdas correspondiente.
Solo consigo copiar el formato de relleno de esta manera que he encontrado (pero no aplica el formato de relleno condicional). Pongo el ejemplo para la forma (provincia) "burgos" cuyos datos y color de relleno correspondiente están en la celda "B38":
Sub AjustarColor()
With ActiveSheet.Range("B38").Interior
If .ColorIndex <> xlColorIndexNone Then
ActiveSheet.Shapes("burgos").Fill.ForeColor.RGB = .Color
End If
End With
End Sub
2 Respuestas
Hasta donde yo sé, sólo se puede averiguar el color aplicado por el formato condicional de una celda evaluando sus condiciones para ver cual es la que se está cumpliendo.
He subido un ejemplo con una función llamada ColorIndexDelFC, que devuelve el color del formato de la celda que se le pasa como argumento: www.jrgc.es/ejemplos/20180207a.xlsm
Si la condición es una fórmula y la versión de Excel no está en inglés, me temo que casi nunca se podrá evaluar correctamente por el motivo que explico en el libro.
Saludos_
¡Gracias!
He probado la función y no me funciona, bebe ser por lo que indicas en el ejemplo...
Gracias de todas formas !!!
Si las condiciones para el formato condicional son las mismas para todas las celdas, pienso que no debería resultar demasiado difícil modificar el código, "personalizándolo" para que evalúe esas condiciones y no otras.
Saludos_
Resuelto. Lo comparto si a alguien le interesa:
Sub AjustarColor()
With ActiveSheet.Range("B38").DisplayFormat.Interior
ActiveSheet.Shapes("burgos").Fill.ForeColor.RGB = .Color
End With
End Sub