Make Your Microsoft Dynamics Investment Count & Drastically Decrease Training Time by Providing Intuitive Step-By-Step WalkThru Tutorials.
Become a Premium Member and unlock a new, free course in leading technologies each month.
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Sub formatcells()
Dim rng As Range
For Each rng In Range("A8:O130")
If IsNumeric(rng) And rng <> "" Then
'formula that round last digit to 9
'???
End If
Next
End Sub
Sub FormatCells()
Dim rng As Range
Dim NewValue As String
For Each rng In Range("A8:O130")
If IsNumeric(rng) And rng <> "" Then
If Right(rng.Text, 1) > 4 Then
NewValue = Left(rng.Text, Len(rng.Text) - 1) & 9
rng.Value = NewValue
End If
End If
Next
End Sub
If you are experiencing a similar issue, please ask a related question
Join the community of 500,000 technology professionals and ask your questions.