Ondalık yazma (makro ile )

[excel12312]

Herkese selamlar ve iyi çalışmalar. Yardım istediğim konu örnek dosyada verilen ondalıklı sayıları tek ondalıklı şekilde yazmak örn: 56,25 i 56,3 şeklinde makro ile düzeltmek.
Şimdiden teşekkürler iyi çalışmalar.

 

[Murat OSMA]

Bu kodları kullanabilirsiniz..

[SIZE="2"]Sub Emre()
    Dim i%
    For i = 4 To Range("C65536").End(3).Row
        Cells(i, 4).Value = WorksheetFunction.RoundUp(Cells(i, 3).Value, 1)
    Next i
    i = Empty
End Sub[/SIZE]

 

[excel12312]

Çok teşekkürler cevap için, güzel çalışıyor elinize sağlık fakat sadece yukarı yuvarlıyor bu şekilde. Örn: 12,21 i 12,2 şeklinde yazdırması mümkün mü teşekkürler.

 

[Murat OSMA]

Koddaki 1 sayısını değiştirmeyi deneyin. ​