Formato condicional a celda con formula

Como puedo aplicar un formato condicional de color a las celdas de una columna que tengan una formula.

Por ejemplo todas las que empiecen por:

=REDONDEAR

1 respuesta

Respuesta
1

No veo forma de hacerlo con formato condicional, pero si con una macro, ¿quieres qué te haga la macro?

¿Quieres qué funcione para toda la hoja?

Saludos. DAM

Vale, sería dale un formato de fondo de color a la celda, por ejemplo gris

¿A cuál celda?

¿O para toda la hoja en donde haya fórmulas?

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 Asignar macro / Selecciona: formula
9. Aceptar.
10. Para ejecutarla dale click a la imagen.

Sub formula()
'Por.DAM
Set r = ActiveSheet.UsedRange 'para toda la hoja
For Each celda In r
    If Left(celda.formula, 6) = "=ROUND" Then
        celda.Interior.ColorIndex = 15 'gris
    End If
Next
End Sub

La macro funciona para todas las celdas,
si quieres una celda
Cambia en la macro esta línea
Set r = ActiveSheet.UsedRange 'para toda la hoja
Por esta
Set r = Range("A5") 'para una celda
si quieres una columna
Cambia en la macro esta línea
Set r = ActiveSheet.UsedRange 'para toda la hoja
Por esta
Set r = Range("C:C") 'para una columna

Saludos. DAM
Si es lo que necesitas.

Fenomenal, sobre todo que me aclare las diferentes opciones que hay, lo quería para una columna.

Le voy a pedir por favor una opción más, si en vez de colorear las celdas de a que empiecen por

=Round

lo haga con las celdas en donde haya un valor numérico. (no formulas ni vacías)

Utiliza la siguiente macro

Sub numeros()
'Por.DAM
Set r = ActiveSheet.UsedRange 'para toda la hoja
For Each celda In r
    If IsNumeric(celda.formula) Then
        celda.Interior.ColorIndex = 15 'gris
    End If
Next
End Sub

Para otro color cambia el número 15 por otro número

En el siguiente enlace puedes ver los colores y los números

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

Saludos. DAM
Si es lo que necesitas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas