Userform Rounding

[Takes2ToTango]

Hi All,

I am trying to find a way to round up a userform textbox to the nearest 10. So for example, if the user inputs 14, it will round to 20 automatically. All the code I have tried doesn't seem to respond.

 

[Legacy 143009]

This might work for you:

Private Sub TextBox1_AfterUpdate()
  If IsNumeric(TextBox1.Text) And Not IsEmpty(TextBox1.Text) Then
    TextBox1.Text = WorksheetFunction.Ceiling(CInt(TextBox1.Text), 10)
  End If
End Sub

 

[Takes2ToTango]

Perfect, thank you very much!

 

[Legacy 143009]

I replaced the code in a more safe way. You are welcome

 

[Takes2ToTango]

Thank you, I will update my code with the new up to date version