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" <[email protected]>
wrote in message
news:[email protected]...
>
> 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" <[email protected]>
wrote in message
news:[email protected]...
>
> 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

You could also call a change event that is a little simplier.

Sub Multiply_Value()
On Error Resume Next
textbox4.value = textbox1.value * textbox2.value * textbox3.value
end sub

and then on the change event for each of the 3 textboxs, call the Multiply_Value command.

The only difference in this one, is if any of the 3 boxes do not contain a value, then box4 will not generate a value.

Well....that is a lot more simple, and practically what I thought it would be!
The change event I want to attach this to is:
Sub cmbMethodName_Change()
will that matter, or can I just insert said code?

Thanks dok112!

Originally Posted by dok112

You could also call a change event that is a little simplier.

Sub Multiply_Value()
On Error Resume Next
textbox4.value = textbox1.value * textbox2.value * textbox3.value
end sub

and then on the change event for each of the 3 textboxs, call the Multiply_Value command.

The only difference in this one, is if any of the 3 boxes do not contain a value, then box4 will not generate a value.

Yeah, you can insert the code. Now, if you changed the name of the textboxes from the standard, you will need to update the names in the code. Also, if you have the boxes spanning over multiple sheets in the form, then you will need to tell the system which box you are using. for example. if you have 2 userforms both named userform1 and userform 2 and both have textboxes, then you need to identify them as userform1.textbox1.value, userform2.textbox3.value etc etc...

First, I used sum, not product.

But you could modify the original suggestion to:

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 = 1
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

The majority of the code is to prevent an error -- when you try to multiply
something that's not a number.

You could choose to ignore the error (on error resume next) or try to avoid it
in code. The choice is your own (obviously).

Amber_D_Laws wrote:
>
> 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
>
> Dave Peterson Wrote:
> > 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
>
> --
> 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