Borders around cells...
I do not know how to word my problem so let me explain the process... From an access DB a user pushes a button then an excel document is built and populated using the excel object. The formatting is done automatically (I recorded a macro and edited the code). Columns A:G are selected then the border is placed down the entire columns. I would like to format the .xls document better. How can I limit the border to where the borders stop on the last row of data on the .xls doc? Any ideas or tips will be greatly appreciated. -- syuhas ------------------------------------------------------------------------ syuhas's Profile: http://www.excelforum.com/member.php...o&userid=27486 View this thread: http://www.excelforum.com/showthread...hreadid=517364 |
Borders around cells...
Possibly
Sub DoBorders() Dim rng As Range With ActiveSheet Set rng = Intersect(.Columns("A:M"), .UsedRange) End With With rng .Borders(xlDiagonalDown).LineStyle = xlNone .Borders(xlDiagonalUp).LineStyle = xlNone With .Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With .Borders(xlEdgeTop).LineStyle = xlNone .Borders(xlEdgeBottom).LineStyle = xlNone With .Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With .Borders(xlInsideVertical) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With .Borders(xlInsideHorizontal).LineStyle _ = xlNone End With End Sub Adjust to suit what you are actually doing and the columns you want to address. The above just puts borders on the vertical edges, but can be adjusted to whatever you want. -- Regards, Tom Ogilvy "syuhas" wrote in message ... I do not know how to word my problem so let me explain the process... From an access DB a user pushes a button then an excel document is built and populated using the excel object. The formatting is done automatically (I recorded a macro and edited the code). Columns A:G are selected then the border is placed down the entire columns. I would like to format the .xls document better. How can I limit the border to where the borders stop on the last row of data on the .xls doc? Any ideas or tips will be greatly appreciated. -- syuhas ------------------------------------------------------------------------ syuhas's Profile: http://www.excelforum.com/member.php...o&userid=27486 View this thread: http://www.excelforum.com/showthread...hreadid=517364 |
All times are GMT +1. The time now is 10:14 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com