"End If Without Block If" in Calculate Angle Of TAN

[Do Vo Anh]

Can anyone help me solve these problem?


Sub Calculate()
Dim i As Long
Dim ia As Long
Dim xrad As Double
Dim DistanceOfX As Double
Dim DistanceOfY As Double
Dim Atan As Double
Range("A43:A83").Value = DistanceOfX
If Range("B43:B83").Value = 2.875 Then DistanceOfY = -1.375
End If


xrad = -(2.25 - (DistanceOfY * DistanceOfY)) / (DistanceOfX * DistanceOfY)


Atan = (Atn(xrad)) / 2


Range("E43:E83").Value = Atan


End Sub

 

[Rick Rothstein]

Can anyone help me solve these problem?

If Range("B43:B83").Value = 2.875 Then DistanceOfY = -1.375
End If

There are two forms of If..Then, a single line one that looks like this...

If {logical expression} Then {action statement}

and the other that looks like this...

If {logical expression} Then
{action statements}
End If

In the above part of your code, your If..Then is of the single line kind, so the End If on the next line does not have an If..Then partner, and so it generates an error. You should remove it.

 

[Do Vo Anh]

So how can i solve these problem sir? I want to calculate the angle of tan using that formula ( xrad = -(2.25 - (DistanceOfY * DistanceOfY)) / (DistanceOfX * DistanceOfY) )

All Values of DistanceOfX, DistanceOfX in the same Range. But the Value of DistanceOfY has the same value, but i cant use this in my calculate so thats why i'm changing it to another Value that can be use.. So how can i do it, sir?

 

[Rick Rothstein]

I am not 100% sure what that code is supposed to be doing, but I so see another problem with your code. This line cannot work...

If Range("B43:B83").Value = 2.875 Then DistanceOfY = -1.375

because you are asking if 41 things are equal to one thing. Are you trying to set DistanceOfY equal to -1.375 if any cell in range B43:B83 equals 2.875? If so, you would need to do that like this...

If Not Range("B43:B83").Find(2.875, , , xlWhole) Is Nothing Then  DistanceOfY = -1.375