İf Then Hk

[ahmed_ummu]

Merhaba arkadaşlar.

Saatlerdir çözemediğim bir sorum olacak Yardımcı olursanız sevinirim.

Aşağıdaki değişkenlerin değerleri karşılarındaki gibidir.

vergi_1dilim=32000
vergi_2dilim=70000
vergi_3dilim=150000

dilim değişkeni 0 dan büyük, vergi_1dilim den eşit/küçük ise "gelir_ver_orani" sab.range("L9") değerini alsın
dilim değişkeni vergi_1dilim den büyük, vergi_2dilim den eşit/küçük ise "gelir_ver_orani" sab.range("M9") değerini alsın
dilim değişkeni vergi_2dilim den büyük ise "gelir_ver_orani" sab.range("n9") değerini alsın

Aşağıdaki kodlar ile denedim ama örnek, vergi_1dilim in değeri 32000 büyük olduğu halde sab.range("L9") değerini alıyor. hesaplamayı L9 daki değere göre çıkarıyor.

If dilim > 0 <= vergi_1dilim Then
gelir_ver_orani = sab.Range("L9").Value
Else
If dilim > vergi_1dilim <= vergi_2dilim Then
gelir_ver_orani = sab.Range("m9").Value
Else
If dilim > vergi_3dilim Then
gelir_ver_orani = sab.Range("n9").Value
End If
End If
End If
gelir_vergisi = WorksheetFunction.Round(aylik_Gelir_Vergisi_Matrahi1 * gelir_ver_orani, 2)

 

[beab05]

Merhaba;

Aşağıdaki gibi düzenleyebilirsiniz.

If dilim > 0 and dilim <= vergi_1dilim Then 

'.....................

'....................

 

[ahmed_ummu]

Merhaba;

Aşağıdaki gibi düzenleyebilirsiniz.

If dilim > 0 and dilim <= vergi_1dilim Then

'.....................

'....................

Çok teşekkürler sayın beab05 sorun düzeldi.