UserForm TextBox Decimal Places

  • Thread starter Thread starter pcsis
  • Start date Start date
P

pcsis

Hi All,

I've got a UserForm with TextBoxes that when opened fill the TextBoxes with
numerical values form specific worksheet cells.
If the Range value has a number like 4.67, this shows up in the textbox no
problem, but when the range value is 4.00 it appears as 4.
I would like the textboxes show a minimum of two decimal places. Any
assistance would be greatly appreciated.

Private Sub UserForm_Initialize()
TextBox1.Value = Range("C7").Value
TextBox2.Value = Range("C8").Value
TextBox3.Value = Range("C9").Value
TextBox4.Value = Range("C10").Value
End Sub

Best regards,
Pete
 
Pete,

You can use the Format method e.g.

Private Sub UserForm_Initialize()
TextBox1.Value = Format(Range("C7").Value, "0.00")
TextBox2.Value = Format(Range("C8").Value, "0.00")
TextBox3.Value = Format(Range("C9").Value, "0.00")
TextBox4.Value = Format(Range("C10").Value, "0.00")
End Sub

Regards,
Dan
 
Just to add, if you want them to appear as the cells do:

Private Sub UserForm_Initialize()
TextBox1.Value = Range("C7").Text
TextBox2.Value = Range("C8").Text
TextBox3.Value = Range("C9").Text
TextBox4.Value = Range("C10").Text
End Sub
 
Back
Top