Formato Condicional Multiple

hola, Luis !

Tengo un rango de valores... en G408:L408... y colores de Fondo, asi:
G408=Amarillo
H408=Azul
I408=Rojo
J408=Verde
K408=Azul Claro
L408=Morado
... obtengo el Minimo... con la Formula Matricial {=Min(Si(G408:L408>0;G408:L408))}
pero quiero por Codigo, que ademas de colocarme el Valor Minimo del Rango distinto de 0
me obtenga el Color de Fondo del valor minimo. Cual seria el Codigo para obtener lo que quiero?

1) trabajar con colores tiene sus propios imponderables (p.e.)
- el color lo detecta excel por numero
- los nombres son convencionalismos de idioma y pudieran ser de diferente "apreciacion" en tonos, degradados, etc.
- no existe ningun evento que detecte cuando se cambia el formato de las celdas (p.e. cambiar el color del fondo)
- hay mas... :D

2) supongo que el ejemplo que expones es (meramente) "representativo" de alguna realidad (ligeramente) menos "sencila" ?
- cuantos rangos y formulas de este tipo vas a utilizar en la realidad ?
- los valores en el rango G408:L408 son entrada directa ?... o vienen como resultado de formulas ?
- seguramente hay mas detalles "en el tintero" :-(

3) para no hacer el cuento largo, voy a supone que solamente se trata del rango que expones (G408:L408) y que son formulas
seguire suponiendo que la formula matricial la tienes en la celda N408
y para no andar asignando nombres a los colores, ni poniendo el numero correspondiente a la paleta de colores de excel...

a) selecciona cualquier celda del rango G408:L408 y haz un copy (ctrl+C)
b) selecciona la celda donde usas la formula (en este ejemplo seria N408)
c) pulsa la tecla {mayus/shift}, activa el meno edicion, eliges el comando "pegar vinculos de imagen...", y pulsas {esc}
(asumo que el nombre que se aplicara al objeto imagen incrustado es "Imagen 1")
d) copia/pega las siguientes lineas en el modulo de codigo de "esa" hoja:

Private Sub Worksheet_Calculate()
On Error Resume Next
Me.Pictures("imagen 1").Formula = _
[g408].Offset(, Evaluate("match(n408,g408:l408,0)") - 1).Address
End Sub

solo toma en cuenta que perderas el beneficio del deshacer/undo/ctrl+Z

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.