Makro Hatası

[yesilyurtlu]

Function OHT(sınıfı, tahsili, derece, kademe)

If sınıfı = "EH" Then
If tahsili = "FAKÜLTE" Then
End If
If derece = 1 Then
If kademe >= 1 And kademe <= 4 Then
OHT = 100
End If

ElseIf derece = 2 Then
ElseIf kademe >= 1 And kademe <= 4 Then
OHT = 100
End If

If derece = 3 Then
ElseIf kademe >= 1 And kademe <= 4 Then
OHT = 95
End If

If derece = 4 Then
ElseIf kademe >= 1 And kademe <= 4 Then
OHT = 95
If derece = 5 Then
If kademe >= 1 And kademe <= 4 Then
OHT = 85
End If

If derece = 6 Then
ElseIf kademe >= 1 And kademe <= 4 Then
OHT = 85
End If

If derece = 7 Then
ElseIf kademe >= 1 And kademe <= 4 Then
OHT = 85
If derece = 8 Then
ElseIf kademe >= 1 And kademe <= 4 Then
OHT = 85
End If

If derece = 9 Then
If kademe >= 1 And kademe <= 4 Then
OHT = 85
End If

If derece = 10 Then
ElseIf kademe >= 1 And kademe <= 4 Then
OHT = 85
If derece = 11 Then
ElseIf kademe >= 1 And kademe <= 4 Then
OHT = 85
End If

If derece = 12 Then
ElseIf kademe >= 1 And kademe <= 4 Then
OHT = 85
End If

If derece = 13 Then
ElseIf kademe >= 1 And kademe <= 4 Then
OHT = 85
If derece = 14 Then
ElseIf kademe >= 1 And kademe <= 4 Then
OHT = 85
End If

If derece = 15 Then
ElseIf kademe >= 1 And kademe <= 4 Then
OHT = 85

End If
End Function



Makroda Hatam Bulunmakta Yardımcı olabilir misin ÜSTAD