I have an intro course with C++ but a newbie user with VB. I googled th
error, which seems pretty simple in itself, but I didn't resolve it
The error is:

*Block If without End If*

and the code, copied right out of VB:


Function UtilizationRank(Utilization As Integer) As Integer

If Utilization 90 Then
UtilizationRank = 1
If Utilization <= 90 And Utilization 75 Then
UtilizationRank = 2
If Utilization <= 75 And Utilization 50 Then
UtilizationRank = 3
If Utilization <= 50 And Untilization <= 1 Then
UtilizationRank = 4
If Utilization = 0 Then
UtilizationRank = 5
End If

End Function



Like I said, newbie prob. I'm not sure about whitespace issues either
Solve my problem, give me pointers. Thanks

--
Message posted from http://www.ExcelForum.com

whelanj,

The correct syntax is

If Utilization 90 Then
UtilizationRank = 1
ElseIf Utilization <= 90 And Utilization 75 Then
UtilizationRank = 2
...
End If


---
Message posted from http://www.ExcelForum.com/

Hi Whelanj,

Just to tell u in ur code u have put "If Utilization <= 50 And Untilization
<= 1 Then" . This might be incorrect as if Untilization <= 1 then it will
be automatically less than 50, so please modify the same to "If Utilization
<= 50 And Untilization = 1 Then"

As, Jgett has said use

If ..... then

....

Else

If ..... then

...

Else

and so on.


Or, U can alternatively use


If .... then

....

End if

If .... then

....

End if



and so on.
"whelanj " wrote in message
...
I have an intro course with C++ but a newbie user with VB. I googled the
error, which seems pretty simple in itself, but I didn't resolve it.
The error is:

*Block If without End If*

and the code, copied right out of VB:


Function UtilizationRank(Utilization As Integer) As Integer

If Utilization 90 Then
UtilizationRank = 1
If Utilization <= 90 And Utilization 75 Then
UtilizationRank = 2
If Utilization <= 75 And Utilization 50 Then
UtilizationRank = 3
If Utilization <= 50 And Untilization <= 1 Then
UtilizationRank = 4
If Utilization = 0 Then
UtilizationRank = 5
End If

End Function



Like I said, newbie prob. I'm not sure about whitespace issues either.
Solve my problem, give me pointers. Thanks.


---
Message posted from http://www.ExcelForum.com/

thanks... i may have another problem but look for that in a late
post..

--
Message posted from http://www.ExcelForum.com

After the first If use ElseIf rather than IF

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"whelanj " wrote in message
...
I have an intro course with C++ but a newbie user with VB. I googled the
error, which seems pretty simple in itself, but I didn't resolve it.
The error is:

*Block If without End If*

and the code, copied right out of VB:


Function UtilizationRank(Utilization As Integer) As Integer

If Utilization 90 Then
UtilizationRank = 1
If Utilization <= 90 And Utilization 75 Then
UtilizationRank = 2
If Utilization <= 75 And Utilization 50 Then
UtilizationRank = 3
If Utilization <= 50 And Untilization <= 1 Then
UtilizationRank = 4
If Utilization = 0 Then
UtilizationRank = 5
End If

End Function



Like I said, newbie prob. I'm not sure about whitespace issues either.
Solve my problem, give me pointers. Thanks.


---
Message posted from http://www.ExcelForum.com/