Mevcut koda %40 dilimini ekleme

[yalovam77]

merhaba aşağıdaki kodla vergi hesaplatıyorum ama %40 dilimi eklediğimde hata aldım ekte belge gönderdim koda %40 dilimi eklemeye yardımcı olabilirmisiniz



Function GV(Matrah As Double)
If Matrah >= 0 And Matrah < Sheets("Vergi").Range("B2").Value# + 1# _
Then GV = Sheets("Vergi").Range("C2").Value# * Matrah
If Matrah > Sheets("Vergi").Range("B2").Value# And Matrah < Sheets("Vergi").Range("B3").Value# + 1# _
Then GV = Sheets("Vergi").Range("C3").Value# * (Matrah - Sheets("Vergi").Range("B2").Value#) + _
(Sheets("Vergi").Range("B2").Value# * Sheets("Vergi").Range("C2").Value#)
If Matrah > Sheets("Vergi").Range("B3").Value# And Matrah < Sheets("Vergi").Range("B4").Value# + 1# _
Then GV = Sheets("Vergi").Range("C4").Value# * (Matrah - Sheets("Vergi").Range("B3").Value#) + _
((Sheets("Vergi").Range("B2").Value# * Sheets("Vergi").Range("C2").Value#) + _
((Sheets("Vergi").Range("B3").Value# - Sheets("Vergi").Range("B2").Value#) * _
Sheets("Vergi").Range("C3").Value#))
If Matrah > Sheets("Vergi").Range("B4").Value# _
Then GV = Sheets("Vergi").Range("C5").Value# * (Matrah - Sheets("Vergi").Range("B4").Value#) + _
(((Sheets("Vergi").Range("B2").Value# * Sheets("Vergi").Range("C2").Value#) + _
((Sheets("Vergi").Range("B3").Value# - Sheets("Vergi").Range("B2").Value#) * _
Sheets("Vergi").Range("C3").Value#)) + _
((Sheets("Vergi").Range("B4").Value# - Sheets("Vergi").Range("B3").Value#) * _
Sheets("Vergi").Range("C4").Value#))
End Function

 

[kulomer46]

Değerli Arkadaşım Merhaba

Dosyanızda I2 Hücresine aşağıdaki formülü giriniz.

=((E2+F2)*H2/100)-(F2*H2/100)

Selamlar...