Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
printing cells with borders | Excel Discussion (Misc queries) | |||
Borders Don't Line up with Cells. | Excel Discussion (Misc queries) | |||
Borders around cells | Excel Programming | |||
HELP! Merge cells and borders.... | Excel Programming |