Borders around cells...

  • Thread starter Thread starter syuhas
  • Start date Start date
S

syuhas

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.
 
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.
 
Back
Top