Help with userform labels


J

jeremy.haynie

I'm trying to create a simple total displayed in a label. Basically, I
have twelve entries for price and quantity. I'm trying to have a label
(label 23 below) show the total as the user fills in the data.

The total label works if all price and quantity fields are filled.

Private Sub q7_Exit(ByVal Cancel As MSForms.ReturnBoolean)

On Error Resume Next
Label19 = q7 * price7

On Error Resume Next
Label23 = ((price1 * q1) + (price2 * q2) + (price3 * q3) + (price4 *
q4) + (price5 * q5) + (price6 * q6) + (price7 * q7) + (price8 * q8) +
(price9 * q9) + (price10 * q10) + (price11 * q11) + (price12 * q12))

End Sub


Thanks
 
Ad

Advertisements

D

Dave Peterson

I think I'd use something like:

Private Sub q7_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Dim iCtr as long
dim myTotal as double

mytotal = 0
for ictr = 1 to 12
if isnumeric(me.controls("price" & ictr).value) _
and isnumeric(me.controls("q" & ictr).valuel) then
mytotal = mytotal _
+ (me.controls("price" & ictr) * me.controls("q" & ictr))
end if
next ictr

label23.caption = format(mytotal, "0.00")




On Error Resume Next
Label19 = q7 * price7

On Error Resume Next
Label23 = ((price1 * q1) + (price2 * q2) + (price3 * q3) + (price4 *
q4) + (price5 * q5) + (price6 * q6) + (price7 * q7) + (price8 * q8) +
(price9 * q9) + (price10 * q10) + (price11 * q11) + (price12 * q12))

End Sub
 
J

jeremy.haynie

Thanks Dave. It works great!
there is a typo on the code below...notice that valuel should be
value.

thanks again
 
Ad

Advertisements

D

Dave Peterson

I composed in the email--I should have copied to the VBE and compiled (or given
you a warning!).

But glad you found it.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top