Geçen kısmın % sini hesaplama

[rakipsiztayfun]

arkadaşlar aşağıdaki gibi bir kod var ancak ben 6000 den fazlasının %20 sini,6000"e kadar olan kısmın ise %15 ni almak istiyorum nasıl yapabilirim teşekkürler


If Cells(1, 2).Value <= 6000 Then
Cells(2, 2) = Round(Cells(1, 3) * 15 / 100, 2)
End If
If Cells(1, 2).Value >= 6001 Then
Cells(2, 2) = Round(Cells(1, 3) * 20 / 100, 2)
End If

 

[rakipsiztayfun]

Arkadaşlar açıklama getirmek istedim diyelimki sayımız 6500 ise tek hücre içerisinde 6500 ün 6000 nin yüzde 15 ni kalan 500 ün ise %20 sini tek hücre içerisinde hesaplatıp çıkan her iki sonucuda toplamak istiyorum makro ile nasıl hesplatabilirim teşekkürler....

 

[Serpily]

Sayın tayfun verdiğiniz kod bu işi yapıyor. Sizin neyi sorduğunuzu anlayamadım ki.

Bu sanırım gelir vergisi hesabı ile ilgili. Eğer gelir vergisi ile ilgiliyse bazı değişiklikler gerekecek gibi.

 

[rakipsiztayfun]

açıklama

Evet Serply hanım gelir vergisi ile ilgili. Üste bir açıklama yaptım zaten ama tam olarak ne istedğimi yazamadım herhalde.Þöyleki diyelim A1 hücresinde 6500,00 YTL var,B1 hücresinede bu paranın 6000,00 kadar olan kısmın %15 ini ve 500,00 nünde %20 sini ayrı ayrı hesaplayacak çıkan her iki sonucuda toplayacak.Bunu tek hücre içerisinde ve Makro ile yapmak istiyorum..

 

[Serpily]

Gelir vergisi hesaplamalarından bildiğim kadarıyla bir dosya yaptım. Belki acilen ihtiyacınız vardır diye yaptığım kısmı gönderiyorum.