userform vba eğer, küçük, büyük ve değilse kullanımı

[sirkülasyon]

Es Selamün Aleyküm

If ComboBox3.Value = "Eğitim Öğretim Hizmetleri Sınıfı" And ComboBox2.Text = "Öğretmen" Then
If TextBox7 > 8000 Then
TextBox8.Value = Sheets("H Cetveli").Range("C3").Value
If TextBox7 >= 5800 And TextBox7 < 8000 Then
TextBox8.Value = Sheets("H Cetveli").Range("C4").Value
If TextBox7 >= 3000 And TextBox7 < 5800 Then
TextBox8.Value = Sheets("H Cetveli").Range("C5").Value
Else
If ComboBox3.Value <> "Eğitim Öğretim Hizmetleri Sınıfı" And ComboBox2.Text <> "Öğretmen" Then
If TextBox4 = 1 And TextBox4 <= 4 Then
TextBox8.Value = Sheets("H Cetveli").Range("C6").Value
If TextBox4 = 5 And TextBox4 <= 15 Then
TextBox8.Value = Sheets("H Cetveli").Range("C7").Value
End If
End If
End If
End If
End If
End If
End If

Textbox8 'e istenen değeri getiremedim. Rica etsem yardımcı olabilir misiniz?

 

[YUSUF44]

Anladığım kadarıyla bu işlemi gündelik harcırahlar için kullanacaksınız. Bu işlemde hizmet sınıfı ve unvanın bir önemi olmadığı halde neden kodlarda sınıf ve unvan geçiyor?

 

[sirkülasyon]

Yusuf abi
Harcırah cetvelinin

a) Ek göstergesi 8000 ve daha yüksek olan kadrolarda bulunanlar (1)	61,65
b) Ek göstergesi 5800 (dahil) – 8000 (hariç) olan kadrolarda bulunanlar	57,55
c) Ek göstergesi 3000 (dahil) – 5800 (hariç) olan kadrolarda bulunanlar	54,05

kısmı ekgösterge ile

d) Aylık/kadro derecesi 1-4 olanlar	47,65
e) Aylık/kadro derecesi 5-15 olanlar	46,35

kısmı da derece ile alakalı olduğu için öyle bir ayrım diye düşündüm

 

[YUSUF44]

Aşağıdaki gibi dener misiniz?

If TextBox7 >= 8000 Then
    TextBox8.Value = Sheets("H Cetveli").Range("C3").Value
ElseIf TextBox7 >= 5800 And TextBox7 < 8000 Then
    TextBox8.Value = Sheets("H Cetveli").Range("C4").Value
ElseIf TextBox7 >= 3000 And TextBox7 < 5800 Then
    TextBox8.Value = Sheets("H Cetveli").Range("C5").Value
ElseIf TextBox4 = 1 And TextBox4 <= 4 Then
    TextBox8.Value = Sheets("H Cetveli").Range("C6").Value
ElseIf TextBox4 = 5 And TextBox4 <= 15 Then
    TextBox8.Value = Sheets("H Cetveli").Range("C7").Value
End If

Not: Bu arada ilk şartı >=8000 olarak düzelttim.

 

[sirkülasyon]

Yusuf abi sağ olasın