ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Rounding up to nearest 10 when "Enter" is pressed or user has clickedoff the cell (https://www.excelbanter.com/excel-programming/381303-rounding-up-nearest-10-when-enter-pressed-user-has-clickedoff-cell.html)

Maddoktor

Rounding up to nearest 10 when "Enter" is pressed or user has clickedoff the cell
 
Hi all,

I am using the ROUNDUP(A1,-1) formula to round up to the next ten of the
value entered by a user into A1 i.e. 317.2 rounds up to 320. Is it
possible to automatically round up to the next 10 the value the user
enters into A1 i.e. automatically change from 317.2 to 320 once the user
presses Enter or clicks off the cell.


Thanks in advance

JE McGimpsey

Rounding up to nearest 10 when "Enter" is pressed or user has clicked off the cell
 
One way:

Put this in your worksheet code module:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Range("A1")
If Not Intersect(.Cells, Target) Is Nothing Then
If IsNumeric(.Value) Then
On Error Resume Next
Application.EnableEvents = False
.Value = Application.RoundUp(.Value, -1)
Application.EnableEvents = True
On Error GoTo 0
End If
End If
End With
End Sub


In article ,
Maddoktor wrote:

Hi all,

I am using the ROUNDUP(A1,-1) formula to round up to the next ten of the
value entered by a user into A1 i.e. 317.2 rounds up to 320. Is it
possible to automatically round up to the next 10 the value the user
enters into A1 i.e. automatically change from 317.2 to 320 once the user
presses Enter or clicks off the cell.


Thanks in advance


Maddoktor

Rounding up to nearest 10 when "Enter" is pressed or user hasclicked off the cell
 
Thank you. Exactly what I was looking for.



JE McGimpsey wrote:
One way:

Put this in your worksheet code module:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Range("A1")
If Not Intersect(.Cells, Target) Is Nothing Then
If IsNumeric(.Value) Then
On Error Resume Next
Application.EnableEvents = False
.Value = Application.RoundUp(.Value, -1)
Application.EnableEvents = True
On Error GoTo 0
End If
End If
End With
End Sub


In article ,
Maddoktor wrote:

Hi all,

I am using the ROUNDUP(A1,-1) formula to round up to the next ten of the
value entered by a user into A1 i.e. 317.2 rounds up to 320. Is it
possible to automatically round up to the next 10 the value the user
enters into A1 i.e. automatically change from 317.2 to 320 once the user
presses Enter or clicks off the cell.


Thanks in advance



All times are GMT +1. The time now is 04:21 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com