Makro içindeki Çarpma işlemini makro ile YUVARLAMA

[smaeler]

sub Oval4_Tıklat()
Range("K3") = Range("I3") * Range("J3")
Range("K4") = Range("I4") * Range("J4")
Range("K5") = Range("I5") * Range("J5")
Range("K6") = Range("I6") * Range("J6")
Range("K7") = Range("I7") * Range("J7")
Range("K9") = Range("I9") * Range("J9")
..............
Şeklinde bir makrom var. Çarpma sonuçlarını daha sonra başka hücrede topluyorum ve küsürat hatalı çıkıyor.
Bu çarpma işlemlerinin sonuçlarını yine aynı makro içinde virgülden sonra iki basamak olacak şekilde nasıl yuvarlarız?

 

[Ömer]

Merhaba,

Deneyiniz.

Range("K3") = Round(Range("I3") * Range("J3"), 2)
'
'
'
Birde bu şekilde kaç adet alt alt çarpma yapıyorsunuz. Tek tek yapmak yerine döngü ile işlemi kısaltabilirsiniz.

Gibi.

Sub Oval4_Tıklat()
    Dim i As Long
    For i = 3 To 9
        Cells(i, "K") = Round(Cells(i, "I") * Cells(i, "J"), 2)
    Next i
End Sub

9 değerini değiştirebilirsiniz. Eğer 9 değeri sabit değilse 9 yerine;

Cells(Rows.Count, "I").End(xlUp).Row

yazarak I sütunundaki son değere göre işlemi ilerletebilirsiniz.

 

[smaeler]

Çok teşekkür ederim... Verdiğiniz İki yöntem ile de dilediğime ulaştım. Elinize sağlık...