¿Cómo obtener un valor en base al color de una celda en excel?

He visto algunos comentarios, pero la verdad no se de programación en vb, y todo se refiere a una macro, habrá una forma más sencilla de obtener un valor en una celda especifica,¿según el color de otra...?

1 respuesta

Respuesta
1

Existe la función Celda( ), utilizando el tipo "Color" el resultado puede ser: Valor 1 si la celda tiene formato de color para los valores negativos; de lo contrario, devuelve 0 (cero).

Información tomada de este enlace:

https://support.office.com/es-es/article/Funci%C3%B3n-CELDA-51bd39a5-f338-4dbe-a33f-955d67c2b2cf 

Es decir, si la celda tiene amarillo o rojo o verde o azul, siempre te regresa un 0 (cero).

La única forma de saber qué color tiene una celda es con VBA

Prueba con la siguiente macro, en la celda G4 te pondrá un valor, dependiendo del color que tenga la celda E4

Sub Regresa_Color()
'Por. Dante Amor
    celda_color = "E4"          'celda con color
    celda_resultado = "G4"      'celda específica para poner un valor
    Select Case Range(celda_color).Interior.ColorIndex
        Case 3 'rojo
            Range(celda_resultado) = 1
        Case 4 'verde
            Range(celda_resultado) = 2
        Case 5 'azul
            Range(celda_resultado) = 3
        Case 6 'amarillo
            Range(celda_resultado) = 4
    End Select
End Sub

Cada color estándar es identificado por un número, puedes consultar la lista de colores y números en el siguiente enlace:

http://dmcritchie.mvps.org/excel/colors.htm 


Sigue las Instrucciones para un botón y ejecutar la macro

  1. Abre tu libro de Excel
  2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
  3. En el menú elige Insertar / Módulo
  4. En el panel del lado derecho copia la macro
  5. Ahora para crear un botón, puedes hacer lo siguiente:
  6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
  7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
  8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”
  9. Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: Regresa_Color
  10. Aceptar.
  11. Para ejecutarla dale click a la imagen.

.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

.

Avísame cualquier duda

.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas