Negative to zero code

[Gabe]

I went in and formatted a cell to: 0;"0";0 so that all negative numbers will
be converted to zero. I have a textbox on a userform that I need to do the
same thing. What code would I use? I tried this but it doesn't work:

txtRemain.Value = Format(txtRemain.Value, "#,#00;""0""")

Any help would be greatly appriciated.

Thanks,
~Gabe

 

[JLGWhiz]

This worked for me:

Sub gh()
Sheets(1).TextBox1.Text = 123.751
MsgBox "OK"
Sheets(1).TextBox1.Text = _
Format(Sheet1.TextBox1.Text, "#,##0.00")
End Sub

 

[JLGWhiz]

Disregard, I misread the posting.

This worked for me:

Sub gh()
Sheets(1).TextBox1.Text = 123.751
MsgBox "OK"
Sheets(1).TextBox1.Text = _
Format(Sheet1.TextBox1.Text, "#,##0.00")
End Sub

 

[JLGWhiz]

I think you are going to have a hard time getting the TextBox entry to
format as a number. It only deals with text. So any number formats have to
be handled either on the worksheet or in the variable container prior to
posting to the text box. Once in the text box, it is text and while it can
be formatted to look like numbers, it is not numeric, so it cannot tell if a
value is negative.

 

[JLatham]

Try this in the text box's _Change event:

Private Sub txtRemain_Change()
If Val(txtRemain) < 0 Then
txtRemain= 0
End If
End Sub

 

[ozgrid.com]

Private Sub TextBox1_Exit _
(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox1) Then
If TextBox1.Value < 0 Then
TextBox1 = 0
End If
End If
End Sub