DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=YUVARLA(EĞER($AZ6-$AY6>=Genel!$F$19;0;EĞER($AZ6<Genel!$F$19;$AY6*0,15;(Genel!$F$19-($AZ6-$AY6))*0,15));2)
=EĞER(YADA($AZ6<=Genel!$F$19;$AZ6-$AY6>Genel!$F$20);0;EĞER(($AZ6-$AY6)<Genel!$F$19;($AZ6-Genel!$F$19)*0,2;EĞER($AZ6<=Genel!$F$20;$AY6*0,2;EĞER($AZ6>Genel!$F$20;(Genel!$F$20-$AZ6+$AY6)*0,2;0))))
=YUVARLA(EĞER($AZ6<=Genel!$F$20;0;EĞER($AZ6-$AY6>Genel!$F$20;$AY6*0,27;($AZ6-Genel!$F$21)*0,27));2)
=YUVARLA(EĞER(C52-C53>ver3;C53*35%;EĞER(VE(C52>ver3;C52-ver3<C53);(C52-ver3)*35%+(ver3-C52+C53)*27%;EĞER(C52-C53>=ver2;C53*27%;EĞER(VE(C52>ver2;C52-ver2<C53);(C52-ver2)*27%+(ver2-C52+C53)*20%;EĞER(C52-C53>=ver1;C53*20%;EĞER(VE(C52>ver1;C52-ver1<C53);(C52-ver1)*20%+(ver1-C52+C53)*15%;C53*15%))))));2)
=EĞER(VE(I8>vergi;I8-J8>vergi);YUVARLA(J8*0,2;2);EĞER(I8<=vergi;YUVARLA(J8*0,15;2);YUVARLA((I8-vergi)*0,2;2)+YUVARLA((vergi-(I8-J8))*0,15;2)))
Bir dosyamda %15 için kullandığım formül:
=YUVARLA(EĞER($AZ6-$AY6>=Genel!$F$19;0;EĞER($AZ6<Genel!$F$19;$AY6*0,15;(Genel!$F$19-($AZ6-$AY6))*0,15));2)
%20 için kullandığım formül:
=EĞER(YADA($AZ6<=Genel!$F$19;$AZ6-$AY6>Genel!$F$20);0;EĞER(($AZ6-$AY6)<Genel!$F$19;($AZ6-Genel!$F$19)*0,2;EĞER($AZ6<=Genel!$F$20;$AY6*0,2;EĞER($AZ6>Genel!$F$20;(Genel!$F$20-$AZ6+$AY6)*0,2;0))))
%27 için kullandığım formül:
=YUVARLA(EĞER($AZ6<=Genel!$F$20;0;EĞER($AZ6-$AY6>Genel!$F$20;$AY6*0,27;($AZ6-Genel!$F$21)*0,27));2)
Başka bir dosyamda tek hücrede kullandığım formül :
=YUVARLA(EĞER(C52-C53>ver3;C53*35%;EĞER(VE(C52>ver3;C52-ver3<C53);(C52-ver3)*35%+(ver3-C52+C53)*27%;EĞER(C52-C53>=ver2;C53*27%;EĞER(VE(C52>ver2;C52-ver2<C53);(C52-ver2)*27%+(ver2-C52+C53)*20%;EĞER(C52-C53>=ver1;C53*20%;EĞER(VE(C52>ver1;C52-ver1<C53);(C52-ver1)*20%+(ver1-C52+C53)*15%;C53*15%))))));2)
Başka bir dosyamdaki formül:
=EĞER(VE(I8>vergi;I8-J8>vergi);YUVARLA(J8*0,2;2);EĞER(I8<=vergi;YUVARLA(J8*0,15;2);YUVARLA((I8-vergi)*0,2;2)+YUVARLA((vergi-(I8-J8))*0,15;2)))
Gördüğünüz gibi her dosyada farklı formüller kullanmışım. Sizin dosyanızdaki yapıyı bilmediğimizden nasıl bir formül yazılacağını da bilemeyiz. Örnek dosya paylaşırsanız yardımcı olmaya çalışırız.
=EĞER(D17<18000;D15*15%;EĞER(D16>=18000;D15*20%;EĞER(VE(D17>18000;D16<18000);D17-18000)*20%+EĞER(VE(D17>18000;D16<18000);D15-(D17-18000))*15%)) sadece bu kadarını yapabildim.Gv ay matrahı 7.090,48
BİRİKEN GV MATRAHI 38.232,41
TOPLAM GV MATRAHI 45.322,89
bu verilere sahip olan bir çalışanın ödenecek gv matrahını excelde hesaplamaya çalışıyorum
=YUVARLA(EĞER(AR2>=148000;AB2*0,35;EĞER(AT2>148000;(AT2-148000)*0,35+(148000-AR2)*0,27;EĞER(AR2>40000;AB2*0,27;EĞER(AT2>40000;(AT2-40000)*0,27+(40000-AR2)*0,2;EĞER(AR2>18000;AB2*0,2;EĞER(AT2>18000;(AT2-18000)*0,2+(18000-AR2)*0,15;AB2*0,15))))));2)
Vergi Oranı | |||
İlk | 1.100.000,00 TL | için | 1% |
Sora Gelen | 2.600.000,00 TL | için | 3% |
Sora Gelen | 5.500.000,00 TL | için | 5% |
Sora Gelen | 10.900.000,00 TL | için | 7% |
Matrahın | 20.100.000,00 TL | yi aşan bölümü için | 10% |
benim şöyle bir sorum var; aşağıdaki tablo için excel formülü yazamadım, yardım ve desteklerinizi rica ederim. Saygılarımla,
Vergi Oranı
İlk
1.100.000,00 TL
için
1%
Sora Gelen
2.600.000,00 TL
için
3%
Sora Gelen
5.500.000,00 TL
için
5%
Sora Gelen
10.900.000,00 TL
için
7%
Matrahın
20.100.000,00 TL
yi aşan bölümü için
10%
Function GELIRBUL(matrah)
Dim a(6)
Dim b(6)
Dim c(6)
Dim d(6)
Dim vergi(6)
i = 1
vergi1 = 0
'______________________________
'yüzde oranları
b(1) = 0.01 '1. dilim
b(2) = 0.03 '2. dilim
b(3) = 0.05 '3. dilim
b(4) = 0.07 '4. dilim
b(5) = 0.1 '5. dilim
b(6) = 0.1 '6. diğerleri
'______________________________
'vergi dilimleri
c(1) = 1000 '1. dilim
c(2) = 2500 '2. dilim
c(3) = 5000 '3. dilim
c(4) = 10000 '4. dilim
c(5) = 20000 '5. dilim
c(6) = c(5) * matrah '6. diğerleri
'______________________________
d(1) = c(1)
d(2) = c(2) - c(1)
d(3) = c(3) - c(2)
d(4) = c(4) - c(3)
d(5) = c(5) - c(4)
d(6) = c(6) - c(5)
While matrah > 0
If matrah >= d(i) Then
a(i) = d(i)
vergi(i) = ((d(i) * b(i)) / 1)
matrah = matrah - d(i)
ElseIf matrah < d(i) Then
d(i) = matrah
matrah = matrah - d(i)
vergi(i) = ((d(i) * b(i)) / 1)
Else
vergi(6) = ((d(6) * b(6)) / 1)
End If
vergi1 = vergi1 + vergi(i)
i = i + 1
Wend
GELIRBUL = Round(vergi1, 2)
End Function
Çok teşekkür ederim emekleriniz için, excelde bunu nasıl yapabilirim?Bu kullanıcı tanımlı fonksiyonu bir dene
formülü bu =GELIRBUL(A1)
Rich (BB code):Function GELIRBUL(matrah) Dim a(6) Dim b(6) Dim c(6) Dim d(6) Dim vergi(6) i = 1 vergi1 = 0 '______________________________ 'yüzde oranları b(1) = 0.01 '1. dilim b(2) = 0.03 '2. dilim b(3) = 0.05 '3. dilim b(4) = 0.07 '4. dilim b(5) = 0.1 '5. dilim b(6) = 0.1 '6. diğerleri '______________________________ 'vergi dilimleri c(1) = 1000 '1. dilim c(2) = 2500 '2. dilim c(3) = 5000 '3. dilim c(4) = 10000 '4. dilim c(5) = 20000 '5. dilim c(6) = c(5) * matrah '6. diğerleri '______________________________ d(1) = c(1) d(2) = c(2) - c(1) d(3) = c(3) - c(2) d(4) = c(4) - c(3) d(5) = c(5) - c(4) d(6) = c(6) - c(5) While matrah > 0 If matrah >= d(i) Then a(i) = d(i) vergi(i) = ((d(i) * b(i)) / 1) matrah = matrah - d(i) ElseIf matrah < d(i) Then d(i) = matrah matrah = matrah - d(i) vergi(i) = ((d(i) * b(i)) / 1) Else vergi(6) = ((d(6) * b(6)) / 1) End If vergi1 = vergi1 + vergi(i) i = i + 1 Wend GELIRBUL = Round(vergi1, 2) End Function
dosyaÇok teşekkür ederim emekleriniz için, excelde bunu nasıl yapabilirim?
Çok teşekkür ederim, emekleriniz için.. Dosyayı iniremedim, alın üyelik gerekiyor, saygılarımla