ipbr21054
Well-known Member
- Joined
- Nov 16, 2010
- Messages
- 5,226
- Office Version
- 2007
- Platform
- Windows
Morning,
On my userform in TextBox10 is a currency value.
The current code is supplied below.
I am unable to enter anything over £9.99
If i enter 22 i only se £2.00 & not £22.00
Ive added various 0 & # to the code but nothing ive tried allows me to achieve it.
On my userform in TextBox10 is a currency value.
The current code is supplied below.
I am unable to enter anything over £9.99
If i enter 22 i only se £2.00 & not £22.00
Ive added various 0 & # to the code but nothing ive tried allows me to achieve it.
Rich (BB code):
Private Sub TextBox10_Change()
TextBox10.Value = Format(TextBox10.Value, "£#,##0.00")
End Sub
Rich (BB code):
For i = 0 To UBound(ControlsArr)
Select Case i
Case -1
.Cells(z, i + 1) = Val(ControlsArr(i))
ControlsArr(i).Text = ""
Case 9
.Cells(z, i + 1) = CCur(ControlsArr(i))
Case Else
.Cells(z, i + 1) = ControlsArr(i)
ControlsArr(i).Text = ""
End Select
Next i
End With