Gelir vergisi dilim hesaplama makrosu

[drummers]

bu konu hakkında epey bi konu açılmış fakat makro konusunda bi yanıt göremedim.. varsada kusura bakmayın göremedim

sorum şudur 2009 için

A1 e matrah yazılacak
B1 e sonucu yazacak

* 8.700,00-TL’ye kadar olan gelirler için uygulanacak olan oran %15,
* 22.000,00-TL’nin 8.700,00-TL’si için 1.305,00-TL fazlası için %20,
* 50.000,00-TL’nin 22.000,00-TL’si için 3.965,00-TL fazlası için %27,
* 50.000,00-TL’den fazlasının ilk 50.000,00-TL’si için 11.525,00-TL fazlası için %35 olarak

bunun makrosu lazım... teşekkürler

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu boş bir modüle uygulayın.

Hücrede kullanım şekli;

[B][COLOR=blue]=GV(A1)[/COLOR][/B]

Option Explicit
 
Function GV(HÜCRE As Range)
    Application.Volatile True
    Select Case HÜCRE
        Case 0 To 8700
        GV = (HÜCRE * 15) / 100
        Case 8701 To 22000
        GV = 1305 + (((HÜCRE - 8700) * 20) / 100)
        Case 22001 To 50000
        GV = 3965 + (((HÜCRE - 22000) * 27) / 100)
        Case Is > 50000
        GV = 11525 + (((HÜCRE - 50000) * 35) / 100)
        Case Else
        GV = 0
    End Select
End Function

 

[Necdet]

Merhaba,

Çalışan GV mi hesaplamak istiyorsunuz yoksa yıllık matrah üzerinden GV mi ?

 

[drummers]

Merhaba,

Çalışan GV mi hesaplamak istiyorsunuz yoksa yıllık matrah üzerinden GV mi ?

yıllık matrah hesaplamak istiyorum
Korhan Ayhan beyin kodlar sanırım doğru sonucu yansıtmıyor

 

[Necdet]

Merhaba,

Burada Sayın Ayhan'ın suçu yok, siz soruyu herkesin olaya vakıf olduğunu bilerek soruyorsunuz.

Aylık matrah ve Kümülatif Matrahtan sözetmiyorsunuz, Korhan bey ne yapsın? öyle değil mi?

 

[Korhan Ayhan]

Selamlar,

Hangi değerde hatalı sonuç aldınız?

 

[drummers]

pardon yanlışlığı ben yapmışım özür

2009 dilimleri ile 2008 matrahına bakmışım

teşekkürler korhan bey

 

[Necdet]

hmmm aylık matrahtan doğan GV hesaplaması değilmiş onu anlamış oldum mu?

 

[drummers]

2008 ve 2009 yıllarına göre kodlarla oynadım

ekli dosyadan yararlanmak istiyen arkadaşlar olabilir diye düşündüm ve ekledim

hücreye yazılacak değer

2008 için =G2008V(A1)

2009 için =G2009V(A1)


teşekkürler Korhan Ayhan

 

[mhaluksen]

Selamlar,

Aşağıdaki kodu boş bir modüle uygulayın.

Hücrede kullanım şekli;

[B][COLOR=blue]=GV(A1)[/COLOR][/B]

Option Explicit
 
Function GV(HÜCRE As Range)
    Application.Volatile True
    Select Case HÜCRE
        Case 0 To 8700
        GV = (HÜCRE * 15) / 100
        Case 8701 To 22000
        GV = 1305 + (((HÜCRE - 8700) * 20) / 100)
        Case 22001 To 50000
        GV = 3965 + (((HÜCRE - 22000) * 27) / 100)
        Case Is > 50000
        GV = 11525 + (((HÜCRE - 50000) * 35) / 100)
        Case Else
        GV = 0
    End Select
End Function

sayın Korhan Bey bu kodu kod bölümüne ekledik fakat excelde hangi hücrede hesaplama yapacak ve bunun 2012 için olanı var mı acaba?

 

[mhaluksen]

Korhan bey cevap yazabilir misiniz?

 

[assenucler]

2012 yılı tarifelerine göre güncellenmiştir

Sayın Korhan Ayhan üstadımızın 2009 yılına göre hazırladığı kodların, 2012 yılı vergi dilimleri dikkate alınarak beyannameli mükellefler ile çalışan ücretlilere göre güncellenen son şekli aşağıdadır.

Bu vesile ile değerli üstadıma sevgi ve saygılar.


NOT:
2009 YILI TARİFESİ KOD SATIRINDAN SİLİNMEDİĞİ ANLAŞILDIĞINDAN, YENİDEN DÜZENLENMİŞTİR.

 

[mhaluksen]

çok teşekkür ederim.

 

[benianla]

süper bir çalışma

 

[sirkülasyon]

Sayın assenucler
çalışmanızdan yararlanabilmek için başka bir siteye yükleyebilir misiniz?