drawing a line with VBA

[plost33]

How would i have VBA draw a line between a two ranges? say i have a named range of "start" and another name range "stop". i want to draw a red line between them. how can i do that with code. this is beggining my education for a much larger project I want to do later in the future.

 

[VoG]

Press ALT + F8, double click AddLine.

 

[sonnychong]

thanks VoG :D

 

[ta7009]

Hello,

I'm testing out the above code and getting this error: Run-time error '1004': Method 'Range' of object '_Global' failed

Am i not setting the Range correctly?

Thank you,
Karen

 

[fairin renish]

Try

Sub AddLine()
Dim l1 As Long, l2 As Long, r1 As Long, r2 As Long
l1 = Range("Start").Left
l2 = Range("Start").Top
r1 = Range("Stop").Left
r2 = Range("Stop").Top
With ActiveSheet.Shapes.AddLine(l1, l2, r1, r2).Line
    .ForeColor.RGB = RGB(255, 0, 0)
End With
End Sub
[

Hey Vog

i am looking for a vba code that would check if any of my cell contents have alphanumeric data in the form “A1010” and return a value “E1017” in the cell below i.e. adding 7 to the numbers and switching “A” to “E” in the cell below.

subsequently it must insert a straight line below the “E1017” cell downwards

Trying to create a project for an internal logistic process.

Would really appreciate your help

Best regards

fairin

 

[fairin renish]

Try

Sub AddLine()
Dim l1 As Long, l2 As Long, r1 As Long, r2 As Long
l1 = Range("Start").Left
l2 = Range("Start").Top
r1 = Range("Stop").Left
r2 = Range("Stop").Top
With ActiveSheet.Shapes.AddLine(l1, l2, r1, r2).Line
    .ForeColor.RGB = RGB(255, 0, 0)
End With
End Sub
[

Hey Vog

i am looking for a vba code that would check if any of my cell contents have alphanumeric data in the form “A1010” and return a value “E1017” in the cell below i.e. adding 7 to the numbers and switching “A” to “E” in the cell below.

subsequently it must insert a straight line below the “E1017” cell pointing towards the next “A1
Trying to create a project for an internal logistic process.

Would really appreciate your help

Best regards

 

[Sabooru]

I've only come here and logged on to compliment VoG on being so patient and helpful to all the folks in this thread. I read the whole thread purely out of entertainment and VoG you were a kind person all the way through.