RE:condicional con formato
Adjunto dos ejemplos de función para el color del fondo
'Muestra verdadero o falso, si el color de la Celda, coincide con el indicado en TColorFondo
'---------------------
Function VerificaColor(Celda As Range, TColorFondo As String) As Boolean
TColorFondo = UCase(TColorFondo)
VColor = 9999
If TColorFondo = "NEGRO" Then VColor = 1
If TColorFondo = "AMARILLO" Then VColor = 6
If TColorFondo = "ROJO OSCURO" Then VColor = 9
If TColorFondo = "FUCSIA" Then VColor = 7
If TColorFondo = "ROJO" Then VColor = 3
If TColorFondo = "ROSA CLARO" Then VColor = 38
If Celda.Interior.ColorIndex = VColor Then
VerificaColor = True
Else
VerificaColor = False
End If
End Function
'-------------------------
Se usa así, =VerificaColor(B5;"ROJO"), mostraría VERDADERO si el color de fondo de la celda B5 es el ROJO y mostrará FALSO en caso contrario.
NOTA: La función sólo está preparada para los colores que se indican y he usado los de la primera columna. No obstante, la función puede ser ampliada y, sobre todo, mejorada.
'Muestra el valor del Color de Fondo de la Celda
'-------------------------
Function QueColor(Celda As Range) As Integer
QueColor = Celda.Interior.ColorIndex
End Function
Se usa así =QueColor(B5), si el color de fondo de la celda B5 es negro, mostraría un 1.
Saludos