Vba Hata Kodu

[sirkülasyon]

Compile Error
Block If without End If

Function yanödeme(ünvan)
If ünvan = "İlçe Milli Eğitim Müdürü" Then
yanödeme = 1100
ElseIf ünvan = "Şube Müdürü" Then
yanödeme = 1100
ElseIf ünvan = "Programcı" Then
yanödeme = 3000
ElseIf ünvan = "Şef Programcı" Then
yanödeme = 3000
ElseIf ünvan = "Şef VHKİ_Bil.İşl" Then
yanödeme = 2250
ElseIf ünvan = "Şef Özelleştirme" Then
yanödeme = 700
ElseIf ünvan = "Şef" Then
yanödeme = 700
ElseIf ünvan = "VHKİ" Then
yanödeme = 2250
ElseIf ünvan = "Bil.İşl" Then
yanödeme = 2250
ElseIf ünvan = "Koruma Güvenlik Görevlisi" Then
yanödeme = 675
ElseIf ünvan = "Memur Sayman Görevli" Then
yanödeme = 875
ElseIf ünvan = "Ayniyat Saymanı" Then
yanödeme = 875
ElseIf ünvan = "Teknisyen Yardımcısı" Then
yanödeme = 875
ElseIf ünvan = "Ambar Memuru" Then
yanödeme = 1075
ElseIf ünvan = "Memur" Then
yanödeme = 500
ElseIf ünvan = "Şoför" Then
yanödeme = 500
ElseIf ünvan = "Hizmetli" Then
yanödeme = 500
ElseIf ünvan = "Aşçı" Then
yanödeme = 500
ElseIf ünvan = "Terzi" Then
yanödeme = 500
ElseIf ünvan = "Kaloriferci" Then
yanödeme = 500
ElseIf ünvan = "Bekçi" Then
yanödeme = 675
If ünvan = "İlköğretim Okul Müdürü" Then
yanödeme = 1150
ElseIf ünvan = "İlköğretim Müdür BaşYardımcısı" Then
yanödeme = 1150
ElseIf ünvan = "İlköğretim Müdür Yardımcısı" Then
yanödeme = 1150
If ünvan = "Anaokulu Müdürü" Then
yanödeme = 1175
ElseIf ünvan = "Anaokulu Müdür Yardımcısı" Then
yanödeme = 1150
ElseIf ünvan = "Öğretmen" Then
yanödeme = 750
ElseIf ünvan = "Teknisyen 5 yıla kadar" Then
yanödeme = 950
ElseIf ünvan = "Teknisyen 5 yıl Üstü" Then
yanödeme = 1050
ElseIf ünvan = "Fen Lisesi Fen Grubu Öğretmeni" Then
yanödeme = 1250
ElseIf ünvan = "Anadolu Lisesi Okul Müdürü" Then
yanödeme = 1675
ElseIf ünvan = "Fen Lisesi Okul Müdürü" Then
yanödeme = 1675
ElseIf ünvan = "Anadolu Meslek Lisesi Okul Müdürü" Then
yanödeme = 1675
ElseIf ünvan = "Anadolu Lisesi Okul Müdür Başyardımcısı" Then
yanödeme = 1650
ElseIf ünvan = "Fen Lisesi Okul Müdür Başyardımcısı" Then
yanödeme = 1650
ElseIf ünvan = "Anadolu Meslek Lisesi Okul Müdür Başyardımcısı" Then
yanödeme = 1650
ElseIf ünvan = "Anadolu Lisesi Okul Müdür yardımcısı" Then
yanödeme = 1650
ElseIf ünvan = "Fen Lisesi Okul Müdür yardımcısı" Then
yanödeme = 1650
ElseIf ünvan = "Anadolu Meslek Lisesi Okul Müdür yardımcısı" Then
yanödeme = 1650
ElseIf ünvan = "Bölüm.Atölye.Laboratuvar Şefi" Then
yanödeme = 975
ElseIf ünvan = "Belletici Olarak Görevlendirilen Baş öğretmen" Then
yanödeme = 850
ElseIf ünvan = "Belletici Olarak Görevlendirilen Uzman öğretmen" Then
yanödeme = 850
ElseIf ünvan = "Belletici Olarak Görevlendirilen Öğretmen" Then
yanödeme = 850
ElseIf ünvan = "Asker Öğretmen" Then
yanödeme = 10800
End If
End Function

vba hatası için ne yapmalıyım yardımcı olabilir misiniz?
Teşekkür ederim.

 

[askm]

İlköğretim Okul Müdürü kısmında vb if ile başlatmışsınız. Else if yaparsanız olur.

 

[askm]

Aşağıdaki şekilde yapın.

Function yanödeme(ünvan)
Select Case ünvan
Case "İlçe Milli Eğitim Müdürü"
    yanödeme = 1100
Case "Şube Müdürü"
    yanödeme = 1100
Case "Programcı"
    yanödeme = 3000
Case "Şef Programcı"
    yanödeme = 3000
Case "Şef VHKİ_Bil.İşl"
    yanödeme = 2250
Case "Şef Özelleştirme"
    yanödeme = 700
Case "Şef"
    yanödeme = 700
Case "VHKİ"
    yanödeme = 2250
Case "Bil.İşl"
    yanödeme = 2250
Case "Koruma Güvenlik Görevlisi"
    yanödeme = 675
Case "Memur Sayman Görevli"
    yanödeme = 875
Case "Ayniyat Saymanı"
    yanödeme = 875
Case "Teknisyen Yardımcısı"
    yanödeme = 875
Case "Ambar Memuru"
    yanödeme = 1075
Case "Memur"
    yanödeme = 500
Case "Şoför"
    yanödeme = 500
Case "Hizmetli"
    yanödeme = 500
Case "Aşçı"
    yanödeme = 500
Case "Terzi"
    yanödeme = 500
Case "Kaloriferci"
    yanödeme = 500
Case "Bekçi"
    yanödeme = 675
Case "İlköğretim Okul Müdürü"
    yanödeme = 1150
Case "İlköğretim Müdür BaşYardımcısı"
    yanödeme = 1150
Case "İlköğretim Müdür Yardımcısı"
    yanödeme = 1150
Case "Anaokulu Müdürü"
    yanödeme = 1175
Case "Anaokulu Müdür Yardımcısı"
    yanödeme = 1150
Case "Öğretmen"
    yanödeme = 750
Case "Teknisyen 5 yıla kadar"
    yanödeme = 950
Case "Teknisyen 5 yıl Üstü"
    yanödeme = 1050
Case "Fen Lisesi Fen Grubu Öğretmeni"
    yanödeme = 1250
Case "Anadolu Lisesi Okul Müdürü"
    yanödeme = 1675
Case "Fen Lisesi Okul Müdürü"
    yanödeme = 1675
Case "Anadolu Meslek Lisesi Okul Müdürü"
    yanödeme = 1675
Case "Anadolu Lisesi Okul Müdür Başyardımcısı"
    yanödeme = 1650
Case "Fen Lisesi Okul Müdür Başyardımcısı"
    yanödeme = 1650
Case "Anadolu Meslek Lisesi Okul Müdür Başyardımcısı"
    yanödeme = 1650
Case "Anadolu Lisesi Okul Müdür yardımcısı"
    yanödeme = 1650
Case "Fen Lisesi Okul Müdür yardımcısı"
    yanödeme = 1650
Case "Anadolu Meslek Lisesi Okul Müdür yardımcısı"
    yanödeme = 1650
Case "Bölüm.Atölye.Laboratuvar Şefi"
    yanödeme = 975
Case "Belletici Olarak Görevlendirilen Baş öğretmen"
    yanödeme = 850
Case "Belletici Olarak Görevlendirilen Uzman öğretmen"
    yanödeme = 850
Case "Belletici Olarak Görevlendirilen Öğretmen"
    yanödeme = 850
Case "Asker Öğretmen"
    yanödeme = 10800
End Select
End Function

 

[sirkülasyon]

Sayın askm
Ellerine Sağlık. Teşekkür Ederim. Sağ olasın

 

[askm]

Rica ederim.

 

[Erdem Akdemir]

Bu tarz işlemlerde if yerine Case'i kullanabilirsiniz.