Macro para poner bordes solo celdas utilizadas
buen día Sres. Tengo una consulta necesito una macro que me ponga bordes solo a las celdas utilizadas,,ya que manejo datos y las celdas utilizadas varían ,entonces necesito una macro que de acuerdo a las celdas utilizadas me pongo bordes gracias
1 respuesta
Respuesta de Dante Amor
2
Te anexo la macro
Sub PonerBordes() 'Por.Dante Amor With ActiveSheet.UsedRange .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
Saludos.Dante Amor
Recuerda valorar la respuesta.
