valor en funcion del color de la celda

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 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.

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 !

... 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 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