|
Hola:
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
|
