Bordes a rangos variables con macro
Ejecuto una macro, que me da el siguiente cuadro (Ver foto), el tema es el siguiente:
Quisiera agregar un código para que me asigne bordes de columna, a partir de A3 hacia I500 digamos, pero los rangos son variables según mis datos, puede ser A3 hacia I200, o I100, ect.
Es decir la macro debe poner solo a la tabla que contengan datos los bordes, no a las filas vacías. El punto de partida siempre va a ser A3, al rango I... Que puede variar según mi tamaño de archivos.
A la espera de su ayuda.
Gracias.
1 respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro:
Sub PonerBordes()
'Por.Dante Amor
'
u = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
With Range("A3:I" & u)
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeTop).LineStyle = xlNone
.Borders(xlEdgeBottom).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone
.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone
End With
'
u = Range("A" & Rows.Count).End(xlUp).Row
With Range("A3:I" & u)
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeLeft).ColorIndex = 0
.Borders(xlEdgeLeft).TintAndShade = 0
.Borders(xlEdgeLeft).Weight = xlThin
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeTop).ColorIndex = 0
.Borders(xlEdgeTop).TintAndShade = 0
.Borders(xlEdgeTop).Weight = xlThin
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeBottom).ColorIndex = 0
.Borders(xlEdgeBottom).TintAndShade = 0
.Borders(xlEdgeBottom).Weight = xlThin
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlEdgeRight).ColorIndex = 0
.Borders(xlEdgeRight).TintAndShade = 0
.Borders(xlEdgeRight).Weight = xlThin
.Borders(xlInsideVertical).LineStyle = xlContinuous
.Borders(xlInsideVertical).ColorIndex = 0
.Borders(xlInsideVertical).TintAndShade = 0
.Borders(xlInsideVertical).Weight = xlThin
.Borders(xlInsideHorizontal).LineStyle = xlContinuous
.Borders(xlInsideHorizontal).ColorIndex = 0
.Borders(xlInsideHorizontal).TintAndShade = 0
.Borders(xlInsideHorizontal).Weight = xlThin
End With
End Sub
