Drawing lines to cells with VBA - Xtreme Visual Basic Talk

06-30-2005, 10:00 AM

Werner

Regular

Join Date: Jun 2005

Location: Canada

Posts: 67

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!

Werner

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

06-30-2005, 12:12 PM

Werner

Regular

Join Date: Jun 2005

Location: Canada

Posts: 67

Folks from another forum helped me out on that one. The fix is :

Quote:

Code:

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

07-05-2005, 08:48 AM

xtraBilly

Centurion

Join Date: Mar 2002

Location: Brooklyn,New York

Posts: 140

Looks like you left out the "." before "Range" & you missed putting in the starting point of the range

.Range("A1:AE" & lstRw).Borders(xlDiagonalDown).LineStyle = xlNone

07-05-2005, 11:10 AM

Werner

Regular

Join Date: Jun 2005

Location: Canada

Posts: 67

A & lstRw is the starting point. lstRw is a variable that tells me if my line will be drawn from colomn A (for example 16) to AE16 or A203 to AE203. The line is drawn on a row. To resume, the starting and ending points are both dynamic.

I forgot to add this line to the With Worksheets. I'll fix that.

Thx for your help

Werner