Add and Subtract Text Boxes

[ndjustin20]

I am trying, unsuccessfully , to add and subtract using text boxes. Here is my code:

QtrBudTotal.Value = Format(Val(monthOneBudTxt) + Val(monthTwoBudTxt) + Val(monthThreeBudTxt), "$###,###")

For some reason it doesn't throw an error though the QtrBudTotal.Value doesn't show anything besides a $ in the text box.


Justin

 

[Andrew Poulsom]

Your code worked for me. What exactly is in your TextBoxes? It won't work if they contain leading $ signs.

 

[ndjustin20]

Hmmmmm they do have leading dollar signs. Is there a way to strip them maybe or I could use the cell values and Dim them. I could use the cell values as the three added text boxes come from three different cells being added together. Maybe better off just using vars. Let me know your thoughts if you get a chance and thank you very much for your feedback it is greatly appreciated.

Justin

 

[Andrew Poulsom]

This worked for me:

QtrBudTotal.Value = Format(Val(Replace(monthOneBudTxt, "$", "")) + Val(Replace(monthTwoBudTxt, "$", "")) + Val(Replace(monthThreeBudTxt, "$", "")), "$###,###")

 

[ndjustin20]

That is awesome!!!!!!!!!!!!!!!!!!!!!!!!! Thank you!!!!!!!