Round textbox value

[mike0123m]

I have a userform that copies the value of a cell to a textbox on the userform. I want to round the value two one decimal place in the textbox. This is the code I have but I keep getting a run-time error 13:

TextBox7.Text = Round(Sheets("sheet3").Range("w51").Value, 0)

I can see why I get the error but I don't know how else to get the value from the cell into a textbox and round the value to one decimal place.

 

[Nogslaw]

You shouldn't get that error unless the value of your cell W51 is non-numeric.

Also, if you want it to round to 1 decimal place, you should use a 1 at the end, not a 0.

TextBox7.Text = Round(Sheets("sheet3").Range("w51").Value, 1)

If it is a number stored as text, I think you could use something like this:

TextBox7.Value = Round(val(Sheets("sheet3").Range("w51").value), 1)

 

[mike0123m]

Nogslaw - the second solution works great but how can I get the textbox to remain empty if the value in the cell on the worksheet is 0 or if the cell is blank?

 

[Nogslaw]

Sorry for the late response ... I was on vacation all last week. Here is one way that you can make that happen:

If Sheets("Sheet3").Range("W51").Value <> "" And Val(Sheets("Sheet3").Range("W51").Value) <> 0 Then
    TextBox7.Value = Round(Val(Sheets("Sheet3").Range("W51").Value), 1)
Else:  TextBox7.Value = ""
End If