valor en funcion del color de la celda

Héctor Miguel escribió:

hola, Salvador !

... coloreando el fondo cualquier celda de la hoja "Color de relleno" me de un valor entero.
... si coloreo en Rojo me de 1 en esa celda... Verde me de 2... Azul 3... Amarillo 4... Gris 5
y asi sobre cualquier celda de la Hoja. EN principio me basta con tan solo 6 o 7 colores basicos...

toma en cuenta que [hasta donde se] NO existe ningun evento que pueda detectar un 'simple' cambio de formato en celdas
[es decir] si alguna celda ya estaba [o no] coloreada, y se decide por cambiar/quitar/... el color que tenia... -???-
si te decides por la opcion que propone Tux...
-> es necesario que a la funcion la pongas como primera instruccion -> Application.Volatile
lo que ocasionaria que cada vez que ocurra un re/calculo del modelo...
-> [todas] las celdas donde se utilice la funcion van a ser re/calculadas ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Hola Hector :-)!

Ostris, Tienes razon no habia caido en que si luego quisiera cambiarle
los valores, adios a los valores anteriores. :-O

Gracias Hector ;-)


¡Un SAludo!:-)

www.fermu.com
www.zorval.es

Salvador escribió:

Hola TUX, gracias por la respuesta pero no es ese mi objetivo.

La hoja en cuestion no tiene ningun valor ni formula en ninguna de sus
celdas, tan solo y de forma automatica me ha de dar un valor en el momento
que le doy un color de fondo a la celda.

"Tux" escribió en el mensaje
news:%23LWOBld%

Salvador escribió:

Hola Hector gracias por tu respuesta y la atencion dispensada.
Te esplico, tengo una hoja y coloreando el fondo cualquier celda de la
hoja "Color de relleno" me de un valor entero.
O sea si coloreo en Rojo me de 1 en esa celda, si coloreo en Verde me de
2, si coloreo el Azul 3, si coloreo en Amarillo 4, si coloreo en Gris 5,
y asi sobre cualquier celda de la Hoja.
EN principio me basta con tan solo 6 o 7 colores basicos.
No se si me he esplicado bien.

Gracias nuevamente.
"Héctor Miguel" escribió en el mensaje
news:uxvxXHV%

hola, Salvador !

Como hacer para que en funcion del color de una celda, esta misma celda
me de un valor numerico o una letra?

podrias comenzar exponiendo los detalles que no se alcanzan a apreciar
de esta consulta [como p.e.]
- de que va a depender que sea numero o letra ?
- de cuantos colores/numeros/letras/... estamos hablando ?
- de que depende que se modifique algun color ?
- en donde 'van unos' y a donde 'van los otros' ?

algun otro detalle que se este quedando 'en el tintero' ?
saludos,
hector.

Hola Salvador :-)!

Se puede crear una funcion como esta:(Insertando modulo en vbExcel y copy
paste del codigo aqui abajo)

Function MICOLOR(Celda As Range)
Select Case Celda.Interior.ColorIndex
'6 = amarillo
'3 = rojo
'10 = verde oscuro

Case 6
MICOLOR = 1

Case 3
MICOLOR = 2

Case 10
MICOLOR = 3

End Select
End Function

Cierras VBExcel y aplicar a la celda por ejemplo A1 con fondo amarillo la
siguiente funcion:

=MICOLOR(A1) te devolvera valor 1 para esa esa celda, si tienes cualquier
duda ,nos comentas ok?





¡Un SAludo!:-)

www.fermu.com
www.zorval.es

Hola Salvador :-)

Ya lo se ya lo que querias, quieres algo manual e instantaneo con tan
solo poner un color en una celda, pero habia creado una funcion un poco
a la torera, una manera facil de devolver un valor x a una celda de
color interior, pero no he mirado todo el conjunto, efectivamente esta
funcion, cada vez que la aplicacara a cualquier celda realizaria el
recalculo de todas las demas y eso ufhhh! en fin lo dicho ¡Un Saludo!:-)



¡Un SAludo!:-)

www.fermu.com
www.zorval.es

hola, ?

... no habia caido en que si luego quisiera cambiarle los valores, adios a los valores anteriores. :-O

revisa las siguientes conversaciones: -> http://tinyurl.com/yh9wgl

saludos ;)
hector.

Héctor Miguel escribió:

hola, ?

... no habia caido en que si luego quisiera cambiarle los valores, adios a los valores anteriores. :-O

revisa las siguientes conversaciones: -> http://tinyurl.com/yh9wgl

saludos ;)
hector.

Gracias de nuevo Hector ;-) , el primero me ha arrancado una carcajada
larga :-D , pero el contenido en si de todos ellos los he estudiado,

Saludos,
Monica


¡Un SAludo!:-)

www.fermu.com
www.zorval.es

Gracias a ambos, ya comentaré... uff.
Un saludo, y hasta otra.

"Tux" escribió en el mensaje
news:O9IDH2f%

Héctor Miguel escribió:

hola, ?

... no habia caido en que si luego quisiera cambiarle los valores, adios
a los valores anteriores. :-O

revisa las siguientes conversaciones: -> http://tinyurl.com/yh9wgl

saludos ;)
hector.

Gracias de nuevo Hector ;-) , el primero me ha arrancado una carcajada
larga :-D , pero el contenido en si de todos ellos los he estudiado,

Saludos,
Monica


¡Un SAludo!:-)

www.fermu.com
www.zorval.es