Comparar datos en columnas en Visual Basic
Por favor pueden ayudarme, quiero comparar dos columnas de Excel, de forma que si la celda de la columna C es igual a 0 se ponga de color verde y si la celda de la comuna B es igual a la de la C se ponga en verde, por ejemplo
B C
0 5 rojo
2 6 blanco
3 3 verde
Un saludo y gracias
El código que escribí es este:
Sub colorear()
'
' color rojo = 0
' color verde = dos columnas iguales
CharKey = 0
'
Range("B2").Select
'Range("C2").Activate
Do While Not IsEmpty(ActiveCell)
'If ActiveCell.value <> CharKey Then
'If (ActiveCell.value = "=RC[+1] - 0") And (ActiveCell.value <> CharKey) Then
' If ActiveCell.value = "=RC[+1]-RC[+0] = 0" Then
' If ActiveCell.value = ActiveCell.value + 1 Then
' If ActiveCell.value = "=ActiveCell.Offset(0, 1).Select" Then
If ActiveCell.value = "COINCIDIR(B;C; 0) > 0" Then
' verde Macro
'
'
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ElseIf ActiveCell.value = CharKey Then
' rojo Macro
'
'
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Else
Selection.EntireRow.Hidden = False
End If
ActiveCell.Offset(1).Select
Loop
Selection.EntireRow.Hidden = True
End Sub
¿No me dijiste que lo querías en formato condicional?
Confirma para revisar o no la macro. Ya te envié imágenes de cómo aplicar las reglas y extender los formatos a medida que completas las celdas. También podríamos ajustar la regla para el color verde para que no aplique en caso de celdas vacías y así ya defines el formato para una columna con más filas.
Sdos!
Hola Elsa, gracias de nuevo por la rapidez de la respuesta, :-)
Son respuestas excelentes :-)
La prefería en forma de macro pues creo que con la macro se pueden incluir celdas indefinidamente. Aunque con formato condicional también me arreglaría. Es una buena idea lo de las celdas vacías.
Muchísimas gracias y un fuerte abrazo :-))
Aquí va la macro ajustada. Veo que solo se ejecuta mientras haya datos en B. Solo agrega las líneas para ocultar que como no estaba en la consulta no los incluí.
Sub colorear()
'x Elsamatilde
' color rojo = 0
' color verde = dos columnas iguales
' color amarillo : b < c
Range("B2").Select
Do While Not IsEmpty(ActiveCell)
'solo se aplica color si B no está vacía
If ActiveCell = 0 Then 'color rojo
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ElseIf ActiveCell < ActiveCell.Offset(0, 1) Then 'color amarillo
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ElseIf ActiveCell = ActiveCell.Offset(0, 1) Then 'color verde
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
'pasa a fila siguiente
ActiveCell.Offset(1, 0).Select
Loop
End SubTambién dejo imagen del formato condicional para no incluir las vacías.
Sdos!
¡Gracias! Simplemente genial :-) Funciona a la perfección y me ayuda un montón en el trabajo. :-)
Cheers
Un millón de gracias y un abrazo
