sayfadaki tüm virgüllü değerleri makro ile 2 hane yuvarlanabilir mi

[iaslan517]

tüm sayafadaki hücrelerdeki tüm virgüllü değerleri 2 hane sonrasını yukarı yuvarlayan program makro ile yazılabilir mi?

 

[PLİNT]

tüm sayafadaki hücrelerdeki tüm virgüllü değerleri 2 hane sonrasını yukarı yuvarlayan program makro ile yazılabilir mi?

Merhaba
Şöyle olabilir;

Sub yukarı_yuvarla()
For Each a In ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, 1)
a.Value = WorksheetFunction.RoundUp(a.Value, 0)
Next
End Sub

 

[numan şamil]

Yanlış anlamadıysam
Snlint'in affına sığınarak

Sub yukarı_yuvarla()
For Each a In ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, 1)
a.Value = WorksheetFunction.RoundUp(a.Value, [COLOR="Red"]2[/COLOR])
Next
End Sub

 

[iaslan517]

bazı değerler metinlerin içerisindede olabiliyor bu değerleride yuvarlaması mümkün mü

 

[PLİNT]

bazı değerler metinlerin içerisindede olabiliyor bu değerleride yuvarlaması mümkün mü

Şöyle deneyebilirsiniz:

Sub yukarı_yuvarla()
For Each a In ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, 3)
If IsNumeric(a.Value) = True Then _
a.Value = WorksheetFunction.RoundUp(a.Value, 2)
If RetNum(a.Value) <> "" Then _
a.Value = Replace(a.Value, RetNum(a.Value), WorksheetFunction.RoundUp(RetNum(a.Value), 2))
Next
End Sub
Function RetNum(AnyStr As String)
    Dim RegEx
    Set RegEx = CreateObject("vbscript.regexp")
    With RegEx
        .Global = True
        .Pattern = "[^\d,]+"
    End With
    RetNum = RegEx.Replace(AnyStr, "")
    Set RegEx = Nothing
End Function

Yanlış anlamışım demekki ;
düzeltmesinden dolayı sayın numan şamil ' e teşekkür ederim.

 

[iaslan517]

çok teşekkür ederim saygılar