- Katılım
- 7 Ağustos 2004
- Mesajlar
- 35
DEÃER hatası
Merhaba Arkadaşlar
Aşağıdaki kodla gelir vergisini hesaplatıyorum, hesaplamalarda bir problem yok. Fakat Dosyayı açtığımda DEÃER hatası veriyor, Hücreye girip ENTER' lediğimde DEÃER hatası gidiyor doğru sonucu veriyor.
Kodun içindeki hücre başvuruları vergi oranları ve matrah limitleri
Her defasında DEÃER hatası vermesinin Sebebi nedir acaba
=YUVARLA(Gvergi(AI17;AJ17);2)
Function Gvergi(Sgelen, Matrah As Double)
Sheets("BORDRO").Select
a = Range("F51")
b = Range("F52")
If (Sgelen + Matrah) <= a Then Gvergi = Matrah * Range("H51")
If (Sgelen + Matrah) >= a And Sgelen < a Then Gvergi = (Sgelen + Matrah - a) * Range("H52") + (a - Sgelen) * Range("H51")
If (Sgelen + Matrah) >= a And Sgelen < a Then Gvergi = (Sgelen + Matrah - a) * Range("H52") + (a - Sgelen) * Range("H51")
If Sgelen >= a Then Gvergi = Matrah * Range("H52")
If (Sgelen + Matrah) >= b And Sgelen < b Then Gvergi = (Sgelen + Matrah - b) * Range("H53") + (b - Sgelen) * Range("H52")
If Sgelen >= b Then Gvergi = Matrah * Range("H53")
End Function
Merhaba Arkadaşlar
Aşağıdaki kodla gelir vergisini hesaplatıyorum, hesaplamalarda bir problem yok. Fakat Dosyayı açtığımda DEÃER hatası veriyor, Hücreye girip ENTER' lediğimde DEÃER hatası gidiyor doğru sonucu veriyor.
Kodun içindeki hücre başvuruları vergi oranları ve matrah limitleri
Her defasında DEÃER hatası vermesinin Sebebi nedir acaba
=YUVARLA(Gvergi(AI17;AJ17);2)
Function Gvergi(Sgelen, Matrah As Double)
Sheets("BORDRO").Select
a = Range("F51")
b = Range("F52")
If (Sgelen + Matrah) <= a Then Gvergi = Matrah * Range("H51")
If (Sgelen + Matrah) >= a And Sgelen < a Then Gvergi = (Sgelen + Matrah - a) * Range("H52") + (a - Sgelen) * Range("H51")
If (Sgelen + Matrah) >= a And Sgelen < a Then Gvergi = (Sgelen + Matrah - a) * Range("H52") + (a - Sgelen) * Range("H51")
If Sgelen >= a Then Gvergi = Matrah * Range("H52")
If (Sgelen + Matrah) >= b And Sgelen < b Then Gvergi = (Sgelen + Matrah - b) * Range("H53") + (b - Sgelen) * Range("H52")
If Sgelen >= b Then Gvergi = Matrah * Range("H53")
End Function