sayıları aşağı yuvarlama

[acemituncay]

ARKADAŞLAR J:7 hücresinden L:127 hücreleri dahilindeki tüm hücrelerdeki sayıları aşağı yuvarlayacak makroyu nasıl hazırlarım bi yardımcı olurmusunuz.

 

[ozgretmen]

Aşağıdaki kodu dener misiniz ?

Sub yuvarla()
Dim i As Range
For Each i In Range("J7:L127")
i.Value = WorksheetFunction.RoundDown(i, 0)
Next i
End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

Sub ayuvarla()
Dim sat As Byte
For sat = 7 To 127
Range("j" & sat) = WorksheetFunction.RoundDown(Range("j" & sat), 2)
Range("k" & sat) = WorksheetFunction.RoundDown(Range("k" & sat), 2)
Range("l" & sat) = WorksheetFunction.RoundDown(Range("l" & sat), 2)
Next
End Sub

 

[acemituncay]

arkadaşlar çok sağolun teşekkür ederim alakanızdan dolayı
yalnız yalnız sayıların olduğu yerde formül var formül çalışarak bu sayıları elde ediyor bunu nasıl önleriz FORMÜL SİLİNİYORDA

 

[ozgretmen]

formülünüze şu şekilde revize ediniz: =AŞAĞIYUVARLA(formül,0)

 

[acemituncay]

Teşekkür ederim

 

[ozgretmen]

Rica ederim.İyi çalışmalar.