Cambiar color de celda al ser mayor o menor el valor comparada con la celda de al lado
Tengo 2 columnas(50 celdas) con valores: una columna tiene valores fijos (A), la otra columna tiene valores que cambian (B).
Necesito que al cambiar los valores de la columna (B) y ser mayores o igual que de la columna(A) las celda de la columna (B) cambien a color verde, y si en caso de que este valor sea menor, cambie a color rosa.
Me gustaría saber como hacerlo con formato condicional (intente pero no)
Pero prefiero poder hacerlo con código vba.
3 respuestas
[Hola
Si deseas hacerlo con VBA, pega esto en el módulo de la hoja respectiva:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("B1:B50")) Is Nothing Then
If Target.Value >= Target.Offset(0, -1) Then
Target.Interior.Color = 5287936
Else
Target.Interior.Color = 10123757
End If
End If
End SubSe puede mejorar por supuesto pero te lo dejo ahí de ejemplo.
Abraham Valencia
Este es elresultado de la macro
y esta es la macro
Private Sub Worksheet_Change(ByVal Target As Range)
col = Target.Column
fila = Target.Row
If col = 2 Then
If Range("b" & fila) >= Range("b" & fila).Offset(0, -1) Then
Target.Interior.ColorIndex = 4
Else
Target.Interior.ColorIndex = 7
End If
End If
End Sub
Con formato condicional lo puedes hacer.
Así como grabe en este corto vídeo: video demo
Yo tengo Excel en Ingles, pero la posición de los menús debe ser la misma.
IMPORTANTE: en la referencia no puedes poner =$A$1, tiene que ser sin los signos $
¡Gracias!
Muy fácil la forma en que se resolvió mi pedido, según tu video
Nuevamente gracias, amigo, valoro tu respuesta.