G
Gwen
Hi,
Please assist.
I want a thick border around range and a5:l8
I want thin borders around cells in range from a5 to the end of range.
The below code gives me the thick borders I want not the cells within the
range.
Set rngAL8 = Range(Cells(Rows.Count, "A").End(xlUp), Range("l5"))
With rngAL8
'.Borders.LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlContinuous
.Borders(xlInsideHorizontal).Weight = xlHairline
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeBottom).Weight = xlHairline
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlEdgeRight).Weight = xlHairline
.Borders(xlInsideVertical).LineStyle = xlContinuous
.Borders(xlInsideVertical).Weight = xlHairline
End With
Set rng = Range(Cells(Rows.Count, "A").End(xlUp), Range("l1"))
With rng
..Borders(xlInsideHorizontal).LineStyle = xlNone
..Borders(xlEdgeLeft).Weight = xlThick
..Borders(xlEdgeRight).Weight = xlThick
..Borders(xlEdgeTop).Weight = xlThick
..Borders(xlEdgeBottom).Weight = xlThick
End With
Set rnga5l7 = Range("A5:L7")
With rnga5l7
..Borders(xlInsideHorizontal).LineStyle = xlNone
..Borders(xlEdgeLeft).Weight = xlThick
..Borders(xlEdgeRight).Weight = xlThick
..Borders(xlEdgeTop).Weight = xlThick
..Borders(xlEdgeBottom).Weight = xlThick
End With
Thanks
Please assist.
I want a thick border around range and a5:l8
I want thin borders around cells in range from a5 to the end of range.
The below code gives me the thick borders I want not the cells within the
range.
Set rngAL8 = Range(Cells(Rows.Count, "A").End(xlUp), Range("l5"))
With rngAL8
'.Borders.LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlContinuous
.Borders(xlInsideHorizontal).Weight = xlHairline
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeBottom).Weight = xlHairline
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlEdgeRight).Weight = xlHairline
.Borders(xlInsideVertical).LineStyle = xlContinuous
.Borders(xlInsideVertical).Weight = xlHairline
End With
Set rng = Range(Cells(Rows.Count, "A").End(xlUp), Range("l1"))
With rng
..Borders(xlInsideHorizontal).LineStyle = xlNone
..Borders(xlEdgeLeft).Weight = xlThick
..Borders(xlEdgeRight).Weight = xlThick
..Borders(xlEdgeTop).Weight = xlThick
..Borders(xlEdgeBottom).Weight = xlThick
End With
Set rnga5l7 = Range("A5:L7")
With rnga5l7
..Borders(xlInsideHorizontal).LineStyle = xlNone
..Borders(xlEdgeLeft).Weight = xlThick
..Borders(xlEdgeRight).Weight = xlThick
..Borders(xlEdgeTop).Weight = xlThick
..Borders(xlEdgeBottom).Weight = xlThick
End With
Thanks