Drawing lines to cells with VBA
 

Hi,

I have a couple of rows (which change in numbers of rows when I use another
macro) and I want to put a double line at the bottom of the last row. I used
the recorder to find the beginning of my code and then I modified it for my
specific needs. But it says that the method Range of the object '_Global'
failed. I need my line to be drawn from colomn A to AE. Does anyone see where
is the problem in my code?
Thx!

JJD

--
Message posted via http://www.officekb.com

Drawing lines to cells with VBA
 

Sub Draw_Double_Line()

'Line that find the number of rows.
Let lstRw = Sheets("Formulaire").Range("a65536").End(xlUp).Row
With Worksheets("Formulaire").Cells(lstrw,1).Resize(1,3 1)

.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeTop).LineStyle = xlNone
With .Borders(xlEdgeBottom)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = 1
End With
.Borders(xlEdgeRight).LineStyle = xlNone
End With

End Sub

--
Regards,
Tom Ogilvy

"Jean-Jerome Doucet via OfficeKB.com" wrote in message
...
Hi,

I have a couple of rows (which change in numbers of rows when I use
another
macro) and I want to put a double line at the bottom of the last row. I
used
the recorder to find the beginning of my code and then I modified it for
my
specific needs. But it says that the method Range of the object '_Global'
failed. I need my line to be drawn from colomn A to AE. Does anyone see
where
is the problem in my code?
Thx!

JJD

Quote:

Sub Draw_Double_Line() 'Line that find the number of rows. Let lstRw = Sheets("Formulaire").Range("a65536").End(xlUp).Row With Worksheets("Formulaire") Range("A:AE" & lstRw).Borders(xlDiagonalDown).LineStyle = xlNone Range("A:AE" & lstRw).Borders(xlDiagonalUp).LineStyle = xlNone Range("A:AE" & lstRw).Borders(xlEdgeLeft).LineStyle = xlNone Range("A:AE" & lstRw).Borders(xlEdgeTop).LineStyle = xlNone With Range("A:AE" & lstRw).Borders(xlEdgeBottom) .LineStyle = xlDouble .Weight = xlThick .ColorIndex = 1 End With Range("A:AE" & lstRw).Borders(xlEdgeRight).LineStyle = xlNone End With End Sub

--
Message posted via http://www.officekb.com

Drawing lines to cells with VBA
 

I found my problem.

Here's the fix :

Range("A" & lstRw & ":AE" & lstRw)

I replaced the range lines with this one.

--
Message posted via http://www.officekb.com