Formatting For UserForm Label Not Working

[marsow]

Hi everyone,


The code here works. But, I can never get the value (displayed in a userform label) to be formatted numerically with commas and 2 decimals (e.g. 1,500.00). I tried every code and placed it everywhere but fails everytime. A simple addition of 1000 + 1500 equals 2001.00. I don't know what else to do and it's been so long now. I would appreciate some help, please.

NewRetailAmt = Me.tbx_rtlamt.Value * Me.tbx_Qty.Value
lbl_sbtot.Caption = Val(lbl_sbtot.Caption) + NewRetailAmt

Legend:
NewRetailAmt - is a variable
tbx_rtlamt - textbox with numeric input
tbx_Qty - textbox with numeric input as multiplier
lbl_sbtot - label to display sum

I tried these lines of code with no luck:
'Me.lbl_sbtot.Value = Format(Me.lbl_sbtot, "#,##0.00")
Or
'lbl_sbtot = Format(lbl_sbtot, "Standard")

Best regards, -m.

 

[Logit]

.
You are welcome.

The only reason it took so much thought is because my brain doesn't work as well as it did decades ago.

 

[marsow]

Well, my brain never worked as good as yours ever.

 

[marsow]

I know I'm an idiot at this but I still need help. Where in the code do I place it in the userform module?

Sub SalesForm()
SalesForm1.Show

Private Sub UserForm_Initialize()
ActiveSheet.Range("S1108").Value = "$1.00"
tbx_tamt.Text = ActiveSheet.Range("S1108").Value
End Sub


Private Sub cmbtn_sbmt_Click()
Dim ans As String
Dim totl As String
ans = (tbx_rtlamt.Text * tbx_Qty.Text)
totl = Format(ans, "Currency") + ActiveSheet.Range("S1108").Value
Label1.Caption = Format(totl, "Currency")
End Sub

 

[Logit]

.
Rt click the form itself, in the VBE (Visual Basic Editor). When you Rt. Click it, choose VIEW CODE. Paste the macros there.

Link to picture : https://www.amazon.com/clouddrive/share/vWTqzCbFdmUKQEQGab4ZjN5coVC0PNcki6htsAfwtNu

Download sample workbook : https://www.amazon.com/clouddrive/share/qiXs9bd0guzcCmjJNqHBDTUYUC056O6lLY0I3rbfjAk

 

[marsow]

Hi @Logit,
Thanks for the attachments. And, thanks again for helping.

You're awesome!

 

[marsow]

Hi Logit,

Thanks again for the sample workbook and working code. I just added a line to make the code add to the calculation each button click.

ans = (TextBox1.Text * TextBox2.Text)
totl = Format(ans, "Currency") + ActiveSheet.Range("A1").Value


Range("A1").Value = totl


Label1.Caption = Format(totl, "Currency")

Best regards, - m