Automatically change the line thickness of a row
 

I am hoping to increase the line thickness of certain rows of a report
(sheet2) that I automatically create from a table of data (sheet1). The
condition for the row thickness is the presence of data in Collumn A (between
rows 13 and 500). Only the top edge of these row cells (between columns A and
G) need to have a medium thickness while the rest are to be thin thickness
except:

To add a little more complexity, there is to be no vertical line between
columns A and B and on the far left and far right of the report (left of
column A and right of column G).

Any assistance would be greatly appreciated.

Heath

Automatically change the line thickness of a row
 

try this

Sub setunderline()
With Range("b16:d21")
.Borders.LineStyle = xlNone
.Borders(xlInsideHorizontal).Weight = xlThick
End With
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"HeathBarker" wrote in message
...
I am hoping to increase the line thickness of certain rows of a report
(sheet2) that I automatically create from a table of data (sheet1). The
condition for the row thickness is the presence of data in Collumn A
(between
rows 13 and 500). Only the top edge of these row cells (between columns A
and
G) need to have a medium thickness while the rest are to be thin thickness
except:

To add a little more complexity, there is to be no vertical line between
columns A and B and on the far left and far right of the report (left of
column A and right of column G).

Any assistance would be greatly appreciated.

Heath

Automatically change the line thickness of a row
 

Range("A13:G500").Borders(xlEdgeTop).Weight = xlMedium

"HeathBarker" wrote:

I am hoping to increase the line thickness of certain rows of a report
(sheet2) that I automatically create from a table of data (sheet1). The
condition for the row thickness is the presence of data in Collumn A (between
rows 13 and 500). Only the top edge of these row cells (between columns A and
G) need to have a medium thickness while the rest are to be thin thickness
except:

To add a little more complexity, there is to be no vertical line between
columns A and B and on the far left and far right of the report (left of
column A and right of column G).

Any assistance would be greatly appreciated.

Heath

Automatically change the line thickness of a row
 

corrected for your criteria
Sub setunderline()
With Range("a13:g501")
.Borders.LineStyle = xlNone
.Borders(xlInsideHorizontal).Weight = xlmedium ' thick thin
End With
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Don Guillett" wrote in message
...
try this

Sub setunderline()
With Range("b16:d21")
.Borders.LineStyle = xlNone
.Borders(xlInsideHorizontal).Weight = xlThick
End With
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"HeathBarker" wrote in message
...
I am hoping to increase the line thickness of certain rows of a report
(sheet2) that I automatically create from a table of data (sheet1). The
condition for the row thickness is the presence of data in Collumn A
(between
rows 13 and 500). Only the top edge of these row cells (between columns A
and
G) need to have a medium thickness while the rest are to be thin
thickness
except:

To add a little more complexity, there is to be no vertical line between
columns A and B and on the far left and far right of the report (left of
column A and right of column G).

Any assistance would be greatly appreciated.

Heath