One click to round the number to 100s ceiling

[kashifjillani]

Hello Expert fellows,

I am trying to round series of numbers to ceiling by 100.

Is there some one click solution to select the required cells and just do it.

Regards,

Kashif

 

[tweedle]

is this what you are asking for?

Sub CeilIt()
Dim Cell As Range
    For Each Cell In Selection
        If IsNumeric(Cell) Then
            Cell = WorksheetFunction.Ceiling(Cell, 100)
        End If
    Next
End Sub

 

[kashifjillani]

is this what you are asking for?

Sub CeilIt()
Dim Cell As Range
    For Each Cell In Selection
        If IsNumeric(Cell) Then
            Cell = WorksheetFunction.Ceiling(Cell, 100)
        End If
    Next
End Sub

Lovely Tweedle ,

So kind of you for solving this problem.

fond regards,