Makroya Yuvarla ekleme

[sybex]

kullandığım makroya yuvarla eklemek istiyorum (yuvarla(......;2) şeklinde
yardımcı olursanız sevinirim. makro sonucu örn65.7399975585938)şeklinde veriyor.

Sub KASIM_1_Matrah_Hesapla()
Dim ji As Long, Ucret As Single, Tutar As Single
Dim BuaykiMatrah As Single, KumulatifMatrah As Single
Dim BuGvOlsun As Single
For ji = 2 To 13000
If Sheets("ANA").Cells(ji, 1) = "" Then Exit Sub
BuaykiMatrah = Sheets("ANA").Cells(ji, 28)
KumulatifMatrah = Sheets("ANA").Cells(ji, 29)
Tutar = BuaykiMatrah + KumulatifMatrah
If Tutar <= 13000 Then BuGvOlsun = Round(BuaykiMatrah * 15 / 100, 2): GoTo BunuGEC_KU
If Tutar > 13000 And Tutar <= 30000 Then
If KumulatifMatrah > 13000 Then BuGvOlsun = Round(BuaykiMatrah * 20 / 100, 2): GoTo BunuGEC_KU
BuGvOlsun = Round(((13000 - KumulatifMatrah) * 15 / 100) + ((Tutar - 13000) * 20 / 100), 2)
End If
If Tutar > 30000 And Tutar <= 70000 Then
If KumulatifMatrah > 30000 Then BuGvOlsun = Round(BuaykiMatrah * 27 / 100, 2): GoTo BunuGEC_KU
BuGvOlsun = Round(((30000 - KumulatifMatrah) * 20 / 100) + ((Tutar - 30000) * 27 / 100), 2)
End If
BunuGEC_KU:
Sheets("ANA").Cells(ji, 30) = BuGvOlsun - Sheets("ANA").Cells(ji, 42)
If Val(Sheets("ANA").Cells(ji, 30)) < 0 Then Sheets("ANA").Cells(ji, 30) = 0
Next ji
End Sub

 

[YUSUF44]

Makronuzda zaten Yuvarla var. Round ile başlayan kısımlar Yuvarla işlevidir.