Formato condicional de una celda dependiendo de otra
¿Cómo puedo asignar un color a una celda a partir del resultado de otra celda?
Ej. La celda A debe cambiar el color dependiendo del resultado de la celda B. Si la celda B tiene un resultado mayor o igual que 15 y menor o igual que 25, la celda A se coloca de color naranja. Si la celda B tiene un resultado menor que 15, la celda A se coloca de color lila.
3 Respuestas
Agrega dos formatos condicionales. Utilizando un fórmula para el formato.
El primero
El segundo
En Se aplica a: en ambos formatos puedes poner toda la columna o cambar por un rango específico
Si no quieres que se pinten las celdas cuando la celda de la columna B, puedes agregar otro formato condicional:
Revisa que todas las fórmulas siempre empiece en $B1.
También observa que el formato "Sin formato establecido", la casilla Detener si es verdad, está activa.
'.[Sal u dos. Dante Amor. No olvides valorar la respuesta.
Puedes hacer lo mismo con macro, mira esta macro que permite ejecutarla de acuerdo a valor de celda
https://www.programarexcel.com/2016/10/como-ejecutar-macro-dependiendo-valor.html
esto te permite dar distintos formatos
No quiero tirarte abajo pero ... si tu le aplicas que sea mayor o igual que 15... le estas diciendo que cualquier numero mayor a 15 se va a pintar ... no hace falta que declares que sea mayor a 25 no se si me explique bien...
Osea si pones 46 también se va a pintar, porque es mayor a 15
Pones este código dentro del modulo de la hoja y al escribir un numero mayor a 15 en la celda B3 se va a pintar la celda D3 de naranja
If Range("B3").Value >= "15" Then
Cells(3, 4).Interior.ColorIndex = 46
Else
Cells(3, 4).Interior.Color = xlNone
End Ifsi el numero es menor a 15 el color se borra
Espero sea lo que necesitas
Solo funciona hasta el 99, no se si es así en todos los office yo tengo el 2010
saludos =)
Estaba probando je je
Podrías hacerlo así para que el si el valor es igual o esta en 15 y 25 se pinte de naranja
If Range("B3").Value >= "15" And Range("b3") <= "25" Then
Cells(3, 4).Interior.ColorIndex = 46
Else
Cells(3, 4).Interior.Color = xlNone
End If
Que relajo de código que estoy haciendo jajaja
Perdón no leí lo de lila, seria así
If Range("B3").Value >= "15" And Range("b3") <= "25" Then
Cells(3, 4).Interior.ColorIndex = 46
Else
Cells(3, 4).Interior.ColorIndex = 26
End IfNo olvides cambiar el rango B3 y D3 por los tuyos =)