Formato Condicional Multiple

On 29 mar, 19:55, "Héctor Miguel"
wrote:

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.

Disculpame Hector,pero en el Grupo de Noticias de Excel no me ha
aparecido tu respuesta.Como siempre eres muy amable.