I made a tournament elimination chart in Excel that is totally automated.
Everything is working except for the custom function I am trying to create to
change the times for the start of each event.
Any help that anyone can give me with the correct way to write this function
would be greatly appreciated.

Here is the Function that I have created. The error code I get is: An END IF
statement mus have a corresponding IF statement.

All of the DIM statements are "As Variant"

Function Evtime(Time1, Time2)

Gameint = Index!M20
Lunchbk = Index!M21
Addtm = Index!M22
Pmstart = Index!M23
Gametm = AT5
Exp1 = (Time1 + Gametm + Gameint)
Exp2 = (Lunchbk - Gametm)
Exp3 = (Time2 + Gametm + Gameint)
Exp4 = (Time1 + Gametm + Gameint + Addtm)

If Exp1 < Exp2 Then Result1 = Exp1 Else Result1 = Pmstart
If Exp1 Exp2 Then Result1 = Exp1 Else Result1 = Pmstart

If Exp1 = Exp3 Then Evtime = Result1 Else Evtime = Exp4

End IF
End Function

You have an End If with no corresponding If statement. All of your If
statements are completely on one line. So, get rid of the End If statement.
Also, it looks like there is the possibility that Evtime may never get a
value, for instance if exp1 < exp2. You may want to do all of your tests
first, and return the values to Result1 and then make Evtime = result1.
--
Kevin Vaughn


"Bill_De" wrote:

I made a tournament elimination chart in Excel that is totally automated.
Everything is working except for the custom function I am trying to create to
change the times for the start of each event.
Any help that anyone can give me with the correct way to write this function
would be greatly appreciated.

Here is the Function that I have created. The error code I get is: An END IF
statement mus have a corresponding IF statement.

All of the DIM statements are "As Variant"

Function Evtime(Time1, Time2)

Gameint = Index!M20
Lunchbk = Index!M21
Addtm = Index!M22
Pmstart = Index!M23
Gametm = AT5
Exp1 = (Time1 + Gametm + Gameint)
Exp2 = (Lunchbk - Gametm)
Exp3 = (Time2 + Gametm + Gameint)
Exp4 = (Time1 + Gametm + Gameint + Addtm)

If Exp1 < Exp2 Then Result1 = Exp1 Else Result1 = Pmstart
If Exp1 Exp2 Then Result1 = Exp1 Else Result1 = Pmstart

If Exp1 = Exp3 Then Evtime = Result1 Else Evtime = Exp4

End IF
End Function

If statements in VBA are different than in a worksheet. You need to
put and End If after each of the IF statements instead of just after
the last one. See if that helps. I didn't check the rest of the code
but that should be a start.

- John