Gayrimenkul Satışlarından elde edilen Kazanç Vergisi hesabı

[1mak1mak]

Arkadaşlar,
Çok Aradım bulamadım ve böyle bir Hesap Dosyasına ihtiyaç olduğunu gördüm
ve Ekteki gibi bir dosya hazırladım bunu geliştirmek için ekteki eksiklerin yapılması gerekiyor yardımcı olacak arkadaşlara şimdiden Teşekkürler.

B ve C Sütunundaki Tarih Kısımlarının ComboBox Şeklinde Seçilebilir olması. Y ve Z Sütununda Dizildiği gibi.
Daha sonra seçilen Yıl ve Ay Karşılığı (Sayfa 2) değerin karşısına getirilmesi.

Son olarakta Vergi Hesabında Ödenecek Vergi Tutarı Hesabının

8.800 TL'ye kadar % 15
22.000 TL'nin 8.800 TL'si için 1.320 TL, fazlası % 20
50.000 TL'nin 22.000 TL'si için 3.960 TL, (ücret gelirlerinde 76.200 TL’nin 22.000 TL’si için 3.960 TL), fazlası % 27
50.000 TL'den fazlasının 50.000 TL'si için 11.520 TL, (ücret gelirlerinde 76.200 TL’den fazlasının 76.200 TL’si için 18.594 TL), fazlası % 35

Şeklinde hesaplanması

 

[1mak1mak]

Tam olarak nasıl olacağını ekte izah ettim.

 

[Huseyinkis]

Tam olarak nasıl olacağını ekte izah ettim.

Gelir vergisi hesaplaması için function ekte. Dosyadada ekleme yaptım.

Function Vergi_Hesap(K_Gv_Mat1)
'-------Tanımlamalar-------------
Gel_Ver_Tut1 = 8800
Gel_Ver_Tut2 = 22000
Gel_Ver_Tut3 = 50000
Gel_Ver_Tut4 = 500000000
'--------- Tanımlamaların Sonu-----------
If K_Gv_Mat1 < (Gel_Ver_Tut1 + 0.01) Then
G_V1 = (K_Gv_Mat1 * 0.15)
ElseIf K_Gv_Mat1 < (Gel_Ver_Tut2 + 0.01) Then
G_V1 = ((Gel_Ver_Tut1 * 0.15) + ((K_Gv_Mat1 - Gel_Ver_Tut1) * 0.2))
ElseIf K_Gv_Mat1 < (Gel_Ver_Tut3 + 0.01) Then
G_V1 = ((Gel_Ver_Tut1 * 0.15) + ((Gel_Ver_Tut2 - Gel_Ver_Tut1) * 0.2) + ((K_Gv_Mat1 - Gel_Ver_Tut2) * 0.27))
ElseIf K_Gv_Mat1 < Gel_Ver_Tut4 Then
G_V1 = ((Gel_Ver_Tut1 * 0.15) + ((Gel_Ver_Tut2 - Gel_Ver_Tut1) * 0.2) + ((Gel_Ver_Tut3 - Gel_Ver_Tut2) * 0.27) + ((K_Gv_Mat1 - Gel_Ver_Tut3) * 0.35))
End If
Vergi_Hesap = G_V1
End Function

 

[1mak1mak]

Gelir vergisi hesaplaması için function ekte. Dosyadada ekleme yaptım.

Hüseyin Hocam Ellerine Sağlık
Çok Güzel olmuş Çok Kişinin işine yarayacak
Yalnız C3 Ay Kısmı eksik kalmış Onuda aynı C2 deki gibi yapabilirsen
Tamamlanmış olacak diyecektimki Satırı alta kopyaladım halloldu.


Teşekkürler

 

[1mak1mak]

Son Halini Ekte Veriyorum inanıyorumki birçok Kişinin işini kolaylaştıracaktır.
Tüm Yardımları için Hüseyin Hocaya çok Teşekkürler.

 

[Huseyinkis]

Son Halini Ekte Veriyorum inanıyorumki birçok Kişinin işini kolaylaştıracaktır.
Tüm Yardımları için Hüseyin Hocaya çok Teşekkürler.

Teşekkürler.

Kolay Gelsin.

 

[mehmetkocacik]

teşekkürler elinize sağlık