Makro ile yuvarla formülü

[anilman]

İyi akşamlar
Ekteki dosyamda 'Alt Alta' Sayfasında K ve M sütunlarında makro ile yuvarlama yapmak istiyorum =yuvarla( ;2) şimdiden teşekkürler.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Yuvarla()
    Dim Veri As Range, Son As Long
    
    Son = Cells(Rows.Count, 5).End(3).Row
    
    For Each Veri In Union(Range("K5:K" & Son), Range("M5:M" & Son))
        If IsNumeric(Veri.Value) Then Veri.Value = WorksheetFunction.Round(Veri.Value, 2)
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[anilman]

Deneyiniz.

Option Explicit

Sub Yuvarla()
    Dim Veri As Range, Son As Long
   
    Son = Cells(Rows.Count, 5).End(3).Row
   
    For Each Veri In Union(Range("K5:K" & Son), Range("M5:M" & Son))
        If IsNumeric(Veri.Value) Then Veri.Value = WorksheetFunction.Round(Veri.Value, 2)
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Çok teşekkürler