İşci Bordrosunda gelir vergisi

[önder34]

İşci bordrosunda kümülati gelirsi matrahına bakarak güncel ayın gelir vergisini vergilir vergisini dilimlerine göre nasıl hesaplatabiliriz.Ekteki dosyada formülü w11 hücresine göre ugulama yaptım ama gelir vergisini kümülatif matrah üzerinden hesaplayor .mevcut ayın vergi matrahı üzerinden hesaplamıyor.Yardımcı olabilecek arkdaş varsa yardımını bekliyorum .Kümülatif vergi matrahını manuel girmek gerekiyor.

 

[dost]

Merhaba,

Aşağıdaki fonksiyonu VBA'da herhangi bir Module kopyalarsın.
Hesaplanan Gelir Vergisi Tutarı sütununda kullanabilirsin.

Function uc_ver_hes(KumlatifMatrah As Double, VergiMatrahi As Double)
    v_dilim1 = 7800#:     v_dilim2 = 19800#:     v_dilim3 = 44700#
    If (KumlatifMatrah + VergiMatrahi) <= v_dilim1 Then
        uc_ver_hes = 0.15 * VergiMatrahi
    ElseIf (KumlatifMatrah + VergiMatrahi) > v_dilim1 And (KumlatifMatrah + VergiMatrahi) <= v_dilim2 Then
        fark = (KumlatifMatrah + VergiMatrahi) - v_dilim1
        uc_ver_hes = (0.2 * fark) + (0.15 * (VergiMatrahi - fark))
    ElseIf (KumlatifMatrah + VergiMatrahi) > v_dilim2 And (KumlatifMatrah + VergiMatrahi) <= v_dilim3 Then
        fark = (KumlatifMatrah + VergiMatrahi) - v_dilim2:
        If KumlatifMatrah <= v_dilim1 Then
            uc_ver_hes = (0.27 * fark) + (0.2 * (v_dilim2 - v_dilim1)) + (0.15 * (VergiMatrahi - (v_dilim2 - v_dilim1) - fark))
        Else: uc_ver_hes = (0.27 * fark) + (0.2 * (VergiMatrahi - fark))
        End If
    Else
        fark = (KumlatifMatrah + VergiMatrahi) - v_dilim3
        If KumlatifMatrah <= v_dilim1 Then
            uc_ver_hes = (0.35 * fark) + (0.27 * (v_dilim3 - v_dilim2)) + (0.2 * (v_dilim2 - v_dilim1)) + (0.15 * (v_dilim1 - KumlatifMatrah))
        ElseIf KumlatifMatrah <= v_dilim2 Then
            uc_ver_hes = (0.35 * fark) + (0.27 * (v_dilim3 - v_dilim2)) + (0.2 * (v_dilim2 - KumlatifMatrah))
        Else: uc_ver_hes = (0.35 * fark) + (0.27 * (VergiMatrahi - fark))
        End If
    End If
End Function

 

[önder34]

destek

sayın dost verdiğiniz kodları modüle kopyaladım ama çalışmıyor dosyaya ekleyebilirmisiniz lütfen en başaramadım .

 

[dost]

Merhaba,

T11 hücresine;

=EĞER(YADA(L11="";P!$G$13="H");0;uc_ver_hes(W11;S11))

yazarsınız.

 

[baydeniro]

Sayın önder34, aşağıdaki linki bir inceleyin.

http://www.excel.web.tr/showthread.php?t=73251

 

[baydeniro]

Sayın Dost, kod güzel bir çözüme benziyor. Ancak ben de sonuç alamadım. KOdu dosyaya uygulayıp ekler misiniz.

 

[önder34]

tşkr

sayın dost işlemi uyguladım ama hesaplamada 10 tl fark(fazla) hesaplama yapıyor .Manuel yaptım.Farkı nerden kaynaklanıyor

 

[önder34]

yeniden merhaba hesaplamada ki 10 TL lik farkı buldum hesaplama doğru. Herşey için çok teşekkürler

 

[baydeniro]

Teşekkürler dost, ben de ancak becerebildim. Güzel bir alternatif oldu.

 

[aycancekic]

Ekli dosya sorunu çözecektir

Vergi tablosunundaki matrahları güncellerseniz gelir verginizi otomatik hesaplayacaktır