Rakamlar üzerinde fonksiyon çalıştırma

[soykan]

Sütunumda sözgelim A1 den başlayarak A20 ye kadar her hücrede bir takım sayılar var ve bunlar virgülden sonra 6 veye 7 sayıya ulaşıyor.
ben makro yardımı ile her satırda yuvarla fonksiyonunu çalıştırmak istiyorum. Döngüyü kurmamda problem yok ancak satırdaki sayıyı formulün içine nası alabilirim. Çünkü her satırda değişik rakam var.

Bunu hücre biçimlendir ile yapmak istemiyorum. 2 haneye tamamen indirmesini istiyorum.

 

[Necdet]

Merhaba,

Aşağıdaki kodları deneyiniz.

Sub Yuvarla()
 
    On Error Resume Next    
    Dim i As Long
 
    For i = 1 To [A65536].End(3).Row
        Cells(i, "A") = Round(Cells(i, "A"), 2)
    Next i
 
End Sub

 

[soykan]

çok teşekkürler....