Agregar bordes a filas infinitas y columnas especificas por VBA
Una hoja con 17 columnas desde la A:Q con filas llenas de datos que se van incrementando constantemente. ¿La consulta es como lograr que por medio de una macro coloque bordes con color a cada una de las filas pero excluyendo las columnas A, B, P, Q? Como mencione al inicio el rango de filas es infinito ya que va incrementando diariamente. Dejo la estructura de mi hojita, gracias
1 Respuesta
Puedes usar el siguiente Macro
Sub Macro1()
'Determina la ultima fila con datos
fin = Range("C1000000").End(xlUp).Row
'Selecciona el Rango
Range("C26:O" & fin).Select
'Finalmente coloca los bordes
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
End Sub
Sin ambargo se puede mejor que una vez que se ingrese el ultimo dato de una vez coloque los bordes pero desconozco la forma como llenas la hoja.
