Subrayar cuando una celda cambia de valor en Excel
Quisiera puedas explicarme por medio de una Macro, como trazar una línea negra que se vea a lo largo de toda una fila (A21:V21) de una hoja cualquiera (C PLAZO), cuando el valor de la celda F21 cambia con respecto a la siguiente F22. Es decir, vengo por ejemplo con la obra 1 e información sobre ella con rango (A1:V21) y paso a la obra 2 cuyo rango es (A22:V54), cambio que quisiera diferenciar con una línea de mayor espesor
1 Respuesta
Quedo a la espera Dante.
Muchas gracias
Va la macro
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
If Not Intersect(Target, Range("F21:F23")) Is Nothing Then
If Target <> Target.Offset(1, 0) Then
With Rows(Target.Row + 1).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThick
End With
End If
End If
End Subsal u dos
Dante ante todo mil gracias por el envió.
Se me complica entender tu forma de programar ya que tiene mucho de VB, pero entiendo que es un código solo para el primer caso que aparece en el ejemplo; podrías generalizarlo para todos los cambios que puedan ocurrir en col F?
Asimismo, este mismo código podría utilizarlo para otra situación en la que por ejemplo cambie datos las columnas D, E o K solo cambiando el Range de Intersect?
Quedo a la espera de tu comentario y poder cerrar asi la valoración.
Un fuerte abrazo y muchas gracias por tu ayuda de costumbre.
DC
Cambia esto:
If Not Intersect(Target, Range("F21:F23")) Is Nothing ThenPor esto:
If Not Intersect(Target, Range("D:F, K:K")) Is Nothing Thensal u dos
