User Form Addition

[Guzzlr]

Hello All

Private Sub Btn_Find_Budget_Click()
On Error GoTo Error_Handler

If (Tbx_REV = vbNullString) Or (Tbx_Actual = vbNullString) Then
    MsgBox ("To Compute Budget:" _
    & vbNewLine & "REV & Actual fields require an input")
    Exit Sub
End If
Tbx_Budget = (Tbx_REV + Tbx_Actual)
Error_Handler:
MsgBox "Test"

I'm not understanding something here...
I have:
Tbx_Actual = (Tbx_Budget - Tbx_REV)

&

Tbx_Budget = (Tbx_REV + Tbx_Actual)

The subtraction in the Tbx_Actual works correctly. However, the Tbx_Budget combines the two numbers instead of summing them.
If I have Tbx_REV = 2 and I have Tbx_Actual =4. The output in Tbx_Budget = 24, instead of 6.

Why is this? How do I sum Tbx_REV and Tbx_Actual?

Thanks for the help
excel 2013

 

[Fluff]

If your numbers are whole numbers try

    Tbx_Budget = CLng(Tbx_REV) + CLng(Tbx_Actual)

As the values in a textbox are text the + concatentates the two text values.
if you convert them into numbers then they will be summed

If you are using decimals change Clng to Cdbl

 

[Norie]

Try this.

Tbx_Budget.Value = Val(Tbx_REV.Value) + Val(Tbx_Actual.Value)

Or this.

Dim Res As Variant

    ' other code

    Res = Evaluate(Tbx_REV & "+" & Tbx_Actual)

    Tbx_Budget = Iif(IsError(Res),"Error", Res)

 

[Guzzlr]

As the values in a textbox are text the + concatentates the two text values.
 if you convert them into numbers then they will be summed

This is what I thought, theproblem is I don't know the syntax from vbNullString for numbers instead of string text...
What can I use instead of vbNullString?
Thanks

 

[Fluff]

Not sure what you mean.
Have you tried my solution, or either of Norie's?

 

[Guzzlr]

Yes, and they both work
If I use vbNullString, Isn't excel looking for a cell with no text? What would be the code for a excel to look for a cell with numbers only? Would it be something similar to vbNullValue?

 

[Fluff]

For that you need IsNumeric()

 

[Guzzlr]

For that you need IsNumeric()

Ohh...

 

[Rick Rothstein]

For that you need IsNumeric()

Although using IsNumeric to "proof" that a text string is a text representation of an actual number can be problematic. See my mini-blog article here...

http://www.excelfox.com/forum/showt...sing-VBA-s-IsNumeric-Function-Read-this-first

 

[Guzzlr]

Although using IsNumeric to "proof" that a text string is a text representation of an actual number can be problematic. See my mini-blog article here...

http://www.excelfox.com/forum/showt...sing-VBA-s-IsNumeric-Function-Read-this-first

Thank you