Quiero una macro para comparar filas
Quisiera realizar una macro que me compare las filas cuando encuentre 2 filas seguidas con información quiero que me coloree la celda y si no que avance a la siguiente file y así sucesivamente
Tengo el borrador de lo que pretendo pero hasta esta hora no lo he logrado, agradeceré mucho si alguien me ayuda
Sub probruenanuc()
For c = 1 To 300
Range("c1").Select
If ActiveCell(c, 3).Value <> "" And ActiveCell.Offset(1, 0).Value <> "" Then
ActiveCell.Interior.ColorIndex = 3
Else
ActiveCell.Offset(1, 0).Select
End If
Next c
End Sub
1 Respuesta
.13.09.16
Buenas noches, Cecilio
Si hubiera entendido correctamente tu planteo, la siguiente rutina está adaptada a ello.
Dejé tus instrucciones al efecto didáctico -si se me permite la insolencia- anulando aquellas que reemplacé por otra.
Para acelerar la ejecución, evito los movimientos a cada celda.
Verás entonces que con Offset, es posible hacer referencia a una celda sin necesidad de ir a ella:
Sub probruenanuc() '---- Variables modificables: 'CECILIO: Indica aquí la celda donde empieza el rango a evaluar IniRango = "C1" '---- fin Variables ' '---- inicio de rutina: For c = 1 To 300 If Not IsEmpty(Range(IniRango).Offset(c)) And Not IsEmpty(Range(IniRango).Offset(c + 1)) Then 'If ActiveCell(c, 3).Value <> "" And ActiveCell.Offset(1, 0).Value <> "" Then Range(IniRango).Offset(c).Interior.ColorIndex = 3 Range(IniRango).Offset(c + 1).Interior.ColorIndex = 3 c = c + 1 Else Range(IniRango).Offset(c).Interior.ColorIndex = 0 'ActiveCell.Offset(1, 0).Select End If Next c End Sub
Espero que te sea útil. Si hubiera algún inconveniente, vuelve a consultarme aquí.
Saludos
Fernando
(Buenos Aires, Argentina)
.
