Multipling the value of 3 text boxes

Ok, this one should be easy, but it has me stumped. I am not finding any good lead on the net either.

Here is the problem. I want to multiply the value of three text boxes and put the resulting value into a forth text box. This value will be calculated on a change event. I know this can be done in code, but I haven't the foggiest where to begin.

Any suggestions?

Thanks in advance,
Amber

Text boxes where?

Tim

--
Tim Williams
Palo Alto, CA


"Amber_D_Laws" <Amber_D_Laws.23dveo_1140196208.4835@excelforum-nospam.com>
wrote in message
news:Amber_D_Laws.23dveo_1140196208.4835@excelforum-nospam.com...
>
> Ok, this one should be easy, but it has me stumped. I am not finding any
> good lead on the net either.
>
> Here is the problem. I want to multiply the value of three text boxes
> and put the resulting value into a forth text box. This value will be
> calculated on a change event. I know this can be done in code, but I
> haven't the foggiest where to begin.
>
> Any suggestions?
>
> Thanks in advance,
> Amber
>
>
> --
> Amber_D_Laws
> ------------------------------------------------------------------------
> Amber_D_Laws's Profile:
http://www.excelforum.com/member.php...o&userid=30012
> View this thread: http://www.excelforum.com/showthread...hreadid=513735
>

On a multi-page user form.

Amber

Originally Posted by Tim Williams

Text boxes where?

Tim

--
Tim Williams
Palo Alto, CA


"Amber_D_Laws" <Amber_D_Laws.23dveo_1140196208.4835@excelforum-nospam.com>
wrote in message
news:Amber_D_Laws.23dveo_1140196208.4835@excelforum-nospam.com...
>
> Ok, this one should be easy, but it has me stumped. I am not finding any
> good lead on the net either.
>
> Here is the problem. I want to multiply the value of three text boxes
> and put the resulting value into a forth text box. This value will be
> calculated on a change event. I know this can be done in code, but I
> haven't the foggiest where to begin.
>
> Any suggestions?
>
> Thanks in advance,
> Amber
>
>
> --
> Amber_D_Laws
> ------------------------------------------------------------------------
> Amber_D_Laws's Profile:
http://www.excelforum.com/member.php...o&userid=30012
> View this thread: http://www.excelforum.com/showthread...hreadid=513735
>

Any one else think they can help?

Amber

Maybe something like:

Option Explicit
Private Sub TextBox1_Change()
Call TBChange
End Sub
Private Sub TextBox2_Change()
Call TBChange
End Sub
Private Sub TextBox3_Change()
Call TBChange
End Sub
Private Sub TBChange()
Dim myValue As Double
myValue = 0
If IsNumeric(Me.TextBox1.Value) Then
myValue = myValue + CDbl(Me.TextBox1.Value)
End If
If IsNumeric(Me.TextBox2.Value) Then
myValue = myValue + CDbl(Me.TextBox2.Value)
End If
If IsNumeric(Me.TextBox3.Value) Then
myValue = myValue + CDbl(Me.TextBox3.Value)
End If

'formatted?
Me.TextBox4.Value = Format(myValue, "00.00")
End Sub


Amber_D_Laws wrote:
>
> Any one else think they can help?
>
> Amber
>
> --
> Amber_D_Laws
> ------------------------------------------------------------------------
> Amber_D_Laws's Profile: http://www.excelforum.com/member.php...o&userid=30012
> View this thread: http://www.excelforum.com/showthread...hreadid=513735

--

Dave Peterson

That's great Dave, but a little more complicated than I expected.
If I were doing this in the worksheet it would be...

A3*A4*A5

but, this is the userform, and they are textboxes, so I was expecting something more along the lines of

(txtUnitPrice.Value*txtTATMultiplier*txtSampleNum).Value = txtTotalPrice

of course, I could be completly off base. I have to admit, I don't even follow the logic of your code. I can't tell where the multiplication is happening. Let me know. The txt's above are the names of the textboxes. Sorry if my earlier posts were unclear. I forget sometimes that you all are not in my head and might not know what I am talking about.

Ha!
Thanks again Dave,
Amber

Originally Posted by Dave Peterson

Maybe something like:

Option Explicit
Private Sub TextBox1_Change()
Call TBChange
End Sub
Private Sub TextBox2_Change()
Call TBChange
End Sub
Private Sub TextBox3_Change()
Call TBChange
End Sub
Private Sub TBChange()
Dim myValue As Double
myValue = 0
If IsNumeric(Me.TextBox1.Value) Then
myValue = myValue + CDbl(Me.TextBox1.Value)
End If
If IsNumeric(Me.TextBox2.Value) Then
myValue = myValue + CDbl(Me.TextBox2.Value)
End If
If IsNumeric(Me.TextBox3.Value) Then
myValue = myValue + CDbl(Me.TextBox3.Value)
End If

'formatted?
Me.TextBox4.Value = Format(myValue, "00.00")
End Sub


Amber_D_Laws wrote:
>
> Any one else think they can help?
>
> Amber
>
> --
> Amber_D_Laws
> ------------------------------------------------------------------------
> Amber_D_Laws's Profile: http://www.excelforum.com/member.php...o&userid=30012
> View this thread: http://www.excelforum.com/showthread...hreadid=513735

--

Dave Peterson