Comparar valor de celdas

Tengo una hoja con unas 450 filas y necesito comparar
el valor de de dos columna a partir del valor de las celda
" G7" COMPARAR CON LA "M7"
" G8" COMPARAR CON LA "M8"
" G9" COMPARAR CON LA "M9"
" G10" COMPARAR CON LA "M10"
...
Se qué se puede hacer con formato condicional una a una
si bien cuando inserto algunas filas tengo que volver al formato condicional una a una . Lo que necesito si puede
ser es que cuando compare y si el valor de las celdas no
sean iguales me pinte una trama color en una de ellas
me da igual que "g" o "m?
Gracias anticipadas

1 Respuesta

Respuesta
1
La rutina que te adjunto la colocarás en un módulo para ser ejecutada desde Herramientas, Macros o por atajo de teclado o podrás asignarla a un botón.
Sub comparaCol()
' Macro grabada el 11/05/2005 por Elsamatilde
ActiveSheet.Range("G7").Select
'recorre la col G hasta una celda vacía, presuponiendo que será el final.
While ActiveCell.Value <> ""
If ActiveCell.Value <> ActiveCell.Offset(0, 6).Value Then
ActiveCell.Interior.ColorIndex = 4
End If
ActiveCell.Offset(1, 0).Select
Wend
End Sub
Los colores los encontrarás en la Ayuda bajo el tema:
Propiedad PatternColorIndex
Saludos
Elsa
PD) No te pierdas mi Manual con esta y otras 300 Macros explicadas en español. Descarga la Demo gratis desde:
http://es.geocities.com/lacibelesdepunilla/manual

Añade tu respuesta

Haz clic para o