[Yardım]  Userformda maaştaki gelir vergisi oranlarını hesaplama sorun

Kulanıcı arayüz formu

Userformda maaştaki gelir vergisi oranlarını hesaplama sorun

İleti#1)  yusuf43 » 19 May 2021 10:51

Arkadaşlar VBA da yaptığım maaş bordrosunda kişinin aylık vergi hesaplamasını 1. dilimden sonraki kısmını yani 1. dilimden 2. dilime geçiş kısmını bir türlü yapamadım. 1. dilim 24000 'den sonra başlıyor. kişinin toplam matrahı 23500 ise aylık matrahın 500 tl sini yüzde 15 ten geri kalan kısmını'da yüzde 20 den kesmesi lazım. Bunu bir türlü yapamadım.Elinde bununla ilgili kod olan varsa yardımcı olabilir mi? Herkese kolay gelsin.
Kullanıcı avatarı
yusuf43
Yeni Başlamış
 
Kayıt: 19 May 2021 10:00
Meslek: EV HANIMI
Yaş: 45
İleti: 35
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: KÜTAHYA

Cevap: Userformda maaştaki gelir vergisi oranlarını hesaplam

İleti#2)  yusuf43 » 19 May 2021 22:33

yusuf43 yazdı:Arkadaşlar VBA da yaptığım maaş bordrosunda kişinin aylık vergi hesaplamasını 1. dilimden sonraki kısmını yani 1. dilimden 2. dilime geçiş kısmını bir türlü yapamadım. 1. dilim 24000 'den sonra başlıyor. kişinin toplam matrahı 23500 ise aylık matrahın 500 tl sini yüzde 15 ten geri kalan kısmını'da yüzde 20 den kesmesi lazım. Bunu bir türlü yapamadım.Elinde bununla ilgili kod olan varsa yardımcı olabilir mi? Herkese kolay gelsin.

EXCELDE YAPTIĞIM BU FÖRMÜLÜ VBA DA YAPMAK İSTİYORUM
=MAK((L9-$D$52)*0,05;0)+MAK((L9-$D$51)*0,08;0)+MAK((L9-$D$50)*0,07;0)+MAK((L9-$D$49)*0,05;0)+L9*0,15-(MAK(((L9-J9)-$D$52)*0,05;0)+MAK(((L9-J9)-$D$51)*0,08;0)+MAK(((L9-J9)-$D$50)*0,07;0)+MAK(((L9-J9)-$D$49)*0,05;0)+((L9-J9)*0,15))
Kullanıcı avatarı
yusuf43
Yeni Başlamış
 
Kayıt: 19 May 2021 10:00
Meslek: EV HANIMI
Yaş: 45
İleti: 35
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: KÜTAHYA

Cevap: Userformda maaştaki gelir vergisi oranlarını hesaplam

İleti#3)  Justmag » 20 May 2021 09:06

Kod: Tümünü seç
Function gvergi(buayki As Double, toplam As Double)
Dim dilim1, dilim2, dilim3, dilim4 As Double

VMatrahı = buayki + toplam

dilim1 = 24000
dilim2 = 53000
dilim3 = 190000
dilim4 = 650000

If VMatrahı >= 0 And VMatrahı < dilim1 Then gvergi = Round(0.15 * buayki, 2)


If VMatrahı >= dilim1 And VMatrahı < dilim2 And toplam < dilim1 Then _
gvergi = Round((VMatrahı - dilim1) * 0.2, 2) + Round(((buayki - (VMatrahı - dilim1)) * 0.15), 2)

If toplam >= dilim1 And toplam < dilim2 Then gvergi = Round(0.2 * buayki, 2)



If VMatrahı >= dilim2 And VMatrahı < dilim3 Then _
gvergi = Round(((VMatrahı - dilim2) * 0.27) + ((buayki - (VMatrahı - dilim2)) * 0.2), 2)


If toplam >= dilim2 And toplam < dilim3 Then _
gvergi = Round(0.27 * buayki, 2)



If VMatrahı >= dilim3 And VMatrahı < dilim4 Then _
gvergi = Round(((VMatrahı - dilim3) * 0.35) + ((buayki - (VMatrahı - dilim3)) * 0.27), 2)

If toplam >= dilim3 Then gvergi = Round(0.35 * buayki, 2)



If VMatrahı >= dilim4 Then _
gvergi = Round(((VMatrahı - dilim4) * 0.4) + ((buayki - (VMatrahı - dilim4)) * 0.35), 2)

If toplam >= dilim4 Then gvergi = Round((buayki * 0.4), 2)

If buayki < 0 Then gvergi = 0

End Function

formülü =gvergi(bu ayki matrahın olduğu hücre;toplam matrahın olduğu hücre)
Kullanıcı avatarı
Justmag
Siteye Alışmış
 
Kayıt: 16 Nis 2020 15:03
Meslek: Diğer
Yaş: 35
İleti: 228
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Diğer

Cevap: Userformda maaştaki gelir vergisi oranlarını hesaplam

İleti#4)  yusuf43 » 23 May 2021 17:05

SAYIN Justmag arkadaşım yardımın için çok teşekkür ederim.
Kullanıcı avatarı
yusuf43
Yeni Başlamış
 
Kayıt: 19 May 2021 10:00
Meslek: EV HANIMI
Yaş: 45
İleti: 35
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: KÜTAHYA

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Userformda maaştaki gelir vergisi oranlarını hesaplam

İleti#5)  yusuf43 » 23 May 2021 17:15

arkadaşlar aşağıda yaptığım kodun sonucu 120.94 olarak hesaplanıyor. Ben sonucun 120 olmasını istiyorum. Aşağı yuvarla yapmasını istiyorum. Sonucun her zaman küsüratsız olması lazım. yardımcı olursanız sevinirim. kolay gelsin.
TextBox136.Value = Format(((((((TextBox52.Value) * (0.55)) + ((TextBox7.Value * 1) + (TextBox8.Value * 1) + (TextBox86.Value / 100) + (TextBox13.Value * 1) + (TextBox132.Value * 1)))) - (TextBox41.Value * 1)) * (TextBox72.Value * 1)) / 100, "#,##.00")
Kullanıcı avatarı
yusuf43
Yeni Başlamış
 
Kayıt: 19 May 2021 10:00
Meslek: EV HANIMI
Yaş: 45
İleti: 35
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: KÜTAHYA

Cevap: Cevap: Userformda aşağı yuvarlama sorunu

İleti#6)  yusuf43 » 23 May 2021 17:17

yusuf43 yazdı:arkadaşlar aşağıda yaptığım kodun sonucu 120.94 olarak hesaplanıyor. Ben sonucun 120 olmasını istiyorum. Aşağı yuvarla yapmasını istiyorum. Sonucun her zaman küsüratsız olması lazım. yardımcı olursanız sevinirim. kolay gelsin.
TextBox136.Value = Format(((((((TextBox52.Value) * (0.55)) + ((TextBox7.Value * 1) + (TextBox8.Value * 1) + (TextBox86.Value / 100) + (TextBox13.Value * 1) + (TextBox132.Value * 1)))) - (TextBox41.Value * 1)) * (TextBox72.Value * 1)) / 100, "#,##.00")
Kullanıcı avatarı
yusuf43
Yeni Başlamış
 
Kayıt: 19 May 2021 10:00
Meslek: EV HANIMI
Yaş: 45
İleti: 35
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: KÜTAHYA

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Userformda maaştaki gelir vergisi oranlarını hesaplam

İleti#7)  Justmag » 23 May 2021 22:40

Kod: Tümünü seç
Textbox136.Value=Application.WorksheetFunction.RoundDown(Textbox136.Value, 0)

kodunuzun altına bunu yazın
Kullanıcı avatarı
Justmag
Siteye Alışmış
 
Kayıt: 16 Nis 2020 15:03
Meslek: Diğer
Yaş: 35
İleti: 228
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Diğer

Cevap: Userformda maaştaki gelir vergisi oranlarını hesaplam

İleti#8)  yusuf43 » 24 May 2021 11:31

ALLAH RAZI OLSUN ÇOK FAYDASI OLDU
Kullanıcı avatarı
yusuf43
Yeni Başlamış
 
Kayıt: 19 May 2021 10:00
Meslek: EV HANIMI
Yaş: 45
İleti: 35
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: KÜTAHYA

Cevap: Userformda maaştaki gelir vergisi oranlarını hesaplam

İleti#9)  yusuf43 » 26 May 2021 00:33

Arkadaşlar personellerlst adındaki listbox sayfamda yüzlerce personelden bulmak istediğim kişinin TC.No' suna göre arama yapmak istiyorum. Bu kodu bir türlü yapamadım. Yardımcı olursanız sevinirim. Kolay gelsin. Sanada çok yük oldum ama kimse cevap yazmadı.
Kullanıcı avatarı
yusuf43
Yeni Başlamış
 
Kayıt: 19 May 2021 10:00
Meslek: EV HANIMI
Yaş: 45
İleti: 35
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: KÜTAHYA

Cevap: Userformda maaştaki gelir vergisi oranlarını hesaplam

İleti#10)  Justmag » 26 May 2021 07:15

Dosyanızı örnek olacak şekilde yükleyin yardımcı olayım
Kullanıcı avatarı
Justmag
Siteye Alışmış
 
Kayıt: 16 Nis 2020 15:03
Meslek: Diğer
Yaş: 35
İleti: 228
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Diğer

Cevap: Userformda maaştaki gelir vergisi oranlarını hesaplam

İleti#11)  yusuf43 » 26 May 2021 09:46

DOSYANIN PERSONEL LİSTESİ BAŞLIKLI "frmpersonellıst" ADLI LİSTBOX İÇİNDEKİ KİŞİLERİ BUL BUTONUNA BASTIĞIMDA TC NO SORSUN VE TC SİNİ YAZDIĞI KİŞİYİ GÖSTERSİN YAPAMADIĞIM BU. BİRDE HAZIR DOSYAYI KOMPLE GÖNDERMİŞKEN TOPLU HESAPLAMA HAKKINDA BİLGİNİZ VARSA YARDIMCI OLURMUSUN. ÇOK SAĞOL ALLAH RAZI OLSUN
Kullanıcı avatarı
yusuf43
Yeni Başlamış
 
Kayıt: 19 May 2021 10:00
Meslek: EV HANIMI
Yaş: 45
İleti: 35
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: KÜTAHYA

Cevap: Userformda maaştaki gelir vergisi oranlarını hesaplam

İleti#12)  yusuf43 » 26 May 2021 10:05

xlsm uzantısı kabul edilmiyor. uyarısı veriyor dosyayı ekleyemedim
Kullanıcı avatarı
yusuf43
Yeni Başlamış
 
Kayıt: 19 May 2021 10:00
Meslek: EV HANIMI
Yaş: 45
İleti: 35
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: KÜTAHYA

Cevap: Userformda maaştaki gelir vergisi oranlarını hesaplam

İleti#13)  Justmag » 26 May 2021 11:30

Rar haline getirin öyle yükleyin
Kullanıcı avatarı
Justmag
Siteye Alışmış
 
Kayıt: 16 Nis 2020 15:03
Meslek: Diğer
Yaş: 35
İleti: 228
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Diğer

Cevap: Userformda maaştaki gelir vergisi oranlarını hesaplam

İleti#14)  yusuf43 » 07 Haz 2021 13:34

ÇOK TEŞEKKÜR EDERİM.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.


Son güncel tutan yusuf43, 07 Haz 2021 13:34.
Kullanıcı avatarı
yusuf43
Yeni Başlamış
 
Kayıt: 19 May 2021 10:00
Meslek: EV HANIMI
Yaş: 45
İleti: 35
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: KÜTAHYA


Forum UserForm

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe