Option Explicit
Sub Marca_Rol()
Dim Fila As Long, Desde As Long, Hasta As Long, Rol As Long
Call Limpia_Trazos
Fila = 3
Desde = 0
Hasta = 0
While Cells(Fila, "C") <> Empty
If Desde = 0 Then Desde = Fila: Rol = Cells(Fila, "A")
If Rol <> Cells(Fila, "A") Then
Hasta = Fila - 1
Range("A" & Desde & ":A" & Hasta).Select
Range(Selection, Selection.End(xlToRight)).Select
Call Trazo_Medio
Desde = 0
Hasta = 0
End If
Fila = Fila + 1
Wend
Hasta = Fila - 1
Range("A" & Desde & ":A" & Hasta).Select
Range(Selection, Selection.End(xlToRight)).Select
Call Trazo_Medio
End Sub
Private Sub Limpia_Trazos()
Range("A3:A19").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("B3").Select
End Sub
Private Sub Trazo_Medio()
Selection.Font.Bold = True
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("AAO4").Select
End Sub
Private Sub Trazo_Grueso()
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThick
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThick
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub