Using a UDF to determin if 2 lines are parallel, perpendicular, or neither

[extrahotfudge]

ve four points (x1,y1), (x2,y2), (x3,y3), and (x4,y4). The first two points define line 1 and the last two points define line 2. I'm trying to use a user defined function to determine the status of the two lines, so either Parallel, Perpendiculr, or Neither. This is what I have for the code, but I am getting a #VALUE! Error. Anyone have any ideas on what to use?

Option Explicit
Function Line_Status(x1, y2, x2, y2, x3, y3, x4, y4)
    Dim s1 As Double
    Dim s2 As Double
    
    s1 = (y2 - y1) / (x2 - x1)
    s2 = (y4 - y3) / (x4 - x3)
    
    If s1 = s2 Then
    Line_Status = "parallel"
    
    If s1 / s2 = -1 Then
    Line_Status = "Perpendicular"
    
    Else
    Line_Status = "Neither"
    
    End If
End Funtion

 

[Marc L]

​

Correction : ElseIf s1 / s2 = -1 Then …​

 

[extrahotfudge]

​

Correction : ElseIf s1 / s2 = -1 Then …​

This still returns the same error

 

[Marc L]

​

As you did not declare the type of each variable passed to the function so post at least some accurate samples with the expected results …​

 

[extrahotfudge]

​

As you did not declare the type of each variable passed to the function so post at least some accurate samples with the expected results …​

Here is what is in my sheet, here K2 should return "Neither"

lab7.xlsm
	A	B	C	D	E	F	G	H	I	J	K
1	x1	y1	x2	y2	x3	y3	x4	y4	m1	m2	Status
2	1	3	3	4	2	6	7	8	0.5	0.4	#VALUE!
3
Lines_2b (FINISH)

Cell Formulas
Range	Formula
I2	I2	=IFERROR((D2-B2)/(C2-A2),"Undefined")
J2	J2	=IFERROR((H2-F2)/(G2-E2),"Undefined")
K2	K2	=Line_Status(A2,B2,C2,D2,E2,F2,G2,H2)

 

[Marc L]

​

Typo to be corrected : End Function …​

 

[extrahotfudge]

​

Typo to be corrected : End Function …​

I have it corrected in the actual sheet and the error is still there.

 

[Marc L]

Yes 'cause of another error in the Function codeline, don't you see the VBE alert ?! As there are two 'y2' but no 'y1' …​

 

[extrahotfudge]

​

Yes 'cause of another error in the Function codeline, don't you see the VBE alert ?! As there are two 'y2' but no 'y1' …​

LOL thanks that fixed it. Oh my goodness, thank you for your help!

 

[ZVI]

Also instead of If s1 / s2 = -1 Then use If s1 * s2 = -1 Then.