hücre üzerinde yuvarla

[polis-53]

merhaba arkadaşlar ekteki dosyada saat ücretlerine zam yapıldığı zaman 4,39 olan saat ücretini hücreye tıklandığı zaman 4,39185 olarak alıyor ve tekrar zam yaptığım zaman 4,39 üzeirndem zam yapmam gerekirken 4,39185 üzerinden zam yapmış oluyorum bunun düzeltilmesi için yardımlarınızı bekliyorum.

 

[Ömer]

Merhaba,

Module kopyalarak çalıştırınız.

Sub Yuvarla()
Dim hucre As Range, i As Integer
For i = 1 To Sheets.Count
    For Each hucre In Sheets(i).Range("B5:F29")
        If hucre <> "" Then
            hucre = CDbl(Format(hucre, "#,##0.00"))
        End If
    Next hucre
Next i
End Sub

.

 

[polis-53]

çok teşekkür ederim kal sağlıcakla

 

[Vhailor]

Peki Yuvarlamayı 50.000 TL ve katlarına göre yapmak istesek, böyle bir şey mümkün müdür? Örneğin yazılması gereken tutar 176.000 TL iken, ilgili hücre 200.000 TL olabilir mi?

Yardımlarınız için teşekkürler.

 

[Vhailor]

Soruma yanıt aldım, teşekkür ederim. İyi akşamlar.