Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: yesilyurtlu - 25 Haziran 2010, 23:53:47

Başlık: Makro Hatası
Gönderen: yesilyurtlu - 25 Haziran 2010, 23:53:47

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