DEĞER hatası

[sevindi2002]

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

 

[Levent Menteşoğlu]

Sheets("BORDRO").Select


Kod içindeki yukarıdaki satır gereksizdir, silerek deneyin.