adding values in userform

Susan · External Since: Apr 18, 2007 Posts: 33

on my userform i have

txtMonthlyRent
and
txtAnnualRent

i need the monthly rent multiplied times 12 to automatically fill in
the txtAnnualRent box.

this is what i've got so far (after trying many variations):
****************************************
Private Sub txtAnnualRent_Enter()

myMonthlyRent = txtMonthlyRent.Value
myMonthlyRent = myMonthlyRent * 12

End Sub
****************************************
i've tried myMonthlyRent.Formula but that won't work either.
If somebody could help me i'd be very appreciative!
thanks
susan

Susan · External Since: Apr 18, 2007 Posts: 33

thanks a lot graham & greg! i went with greg's code because it fit
better in my project.
thank you!
susan

On Sep 28, 10:45 am, "Greg Maxey"
<gma....TakeThisOut@mIKEvICTORpAPAsIERRA.oSCARrOMEOgOLF> wrote:
> Susan,
>
> I would probably leave txtAnnualRent disabled and do the calculation OnExit
> from txtMonthlyRent:
>
> Private Sub txtMonthlyRent_Exit(ByVal Cancel As MSForms.ReturnBoolean)
> If IsNumeric(Me.txtMonthlyRent) Then
> Me.txtAnnualRent.Value = Format(12 * CDbl(Me.txtMonthlyRent.Value),
> "$#,##0.00")
> Else
> Cancel = True
> End If
> End Sub
>
> --
> Greg Maxey
>
> See my web sitehttp://gregmaxey.mvps.org
> for an eclectic collection of Word Tips.
>
> "It is not the critic who counts, not the man who points out how the strong
> man stumbles, or where the doer of deeds could have done them better. The
> credit belongs to the man in the arena, whose face is marred by dust and
> sweat and blood, who strives valiantly...who knows the great enthusiasms,
> the great devotions, who spends himself in a worthy cause, who at the best
> knows in the end the triumph of high achievement, and who at the worst, if
> he fails, at least fails while daring greatly, so that his place shall never
> be with those cold and timid souls who have never known neither victory nor
> defeat." - TR
>
> "Susan" <bogenex....TakeThisOut@aol.com> wrote in message
>
> news:1a8af265-eee5-4245-9a84-199b3cdd8091@r31g2000vbi.googlegroups.com...
>
>
>
> > on my userform i have
>
> > txtMonthlyRent
> > and
> > txtAnnualRent
>
> > i need the monthly rent multiplied times 12 to automatically fill in
> > the txtAnnualRent box.
>
> > this is what i've got so far (after trying many variations):
> > ****************************************
> > Private Sub txtAnnualRent_Enter()
>
> > myMonthlyRent = txtMonthlyRent.Value
> > myMonthlyRent = myMonthlyRent * 12
>
> > End Sub
> > ****************************************
> > i've tried myMonthlyRent.Formula but that won't work either.
> > If somebody could help me i'd be very appreciative!
> > thanks
> > susan- Hide quoted text -
>
> - Show quoted text -

Greg Maxey · External Since: Feb 01, 2009 Posts: 57

Susan,

I would probably leave txtAnnualRent disabled and do the calculation OnExit
from txtMonthlyRent:

Private Sub txtMonthlyRent_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(Me.txtMonthlyRent) Then
Me.txtAnnualRent.Value = Format(12 * CDbl(Me.txtMonthlyRent.Value),
"$#,##0.00")
Else
Cancel = True
End If
End Sub

--
Greg Maxey

See my web site http://gregmaxey.mvps.org
for an eclectic collection of Word Tips.

"It is not the critic who counts, not the man who points out how the strong
man stumbles, or where the doer of deeds could have done them better. The
credit belongs to the man in the arena, whose face is marred by dust and
sweat and blood, who strives valiantly...who knows the great enthusiasms,
the great devotions, who spends himself in a worthy cause, who at the best
knows in the end the triumph of high achievement, and who at the worst, if
he fails, at least fails while daring greatly, so that his place shall never
be with those cold and timid souls who have never known neither victory nor
defeat." - TR

"Susan" <bogenexcel.DeleteThis@aol.com> wrote in message
news:1a8af265-eee5-4245-9a84-199b3cdd8091@r31g2000vbi.googlegroups.com...
> on my userform i have
>
> txtMonthlyRent
> and
> txtAnnualRent
>
> i need the monthly rent multiplied times 12 to automatically fill in
> the txtAnnualRent box.
>
> this is what i've got so far (after trying many variations):
> ****************************************
> Private Sub txtAnnualRent_Enter()
>
> myMonthlyRent = txtMonthlyRent.Value
> myMonthlyRent = myMonthlyRent * 12
>
> End Sub
> ****************************************
> i've tried myMonthlyRent.Formula but that won't work either.
> If somebody could help me i'd be very appreciative!
> thanks
> susan

Graham Mayor · External Since: Jul 04, 2006 Posts: 4676

What I think you are asking for is:

Private Sub CommandButton1_Click()
Unload Me
myMonthlyRent = txtMonthlyRent.Value
MyAnnualRent = txtAnnualRent.Value
MsgBox "Monthly rent: " & myMonthlyRent & vbCr _
& "Annual Rent: " & MyAnnualRent
End Sub

Private Sub txtMonthlyRent_Change()
txtAnnualRent.Value = txtMonthlyRent.Value * 12
End Sub

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

Susan wrote:
> on my userform i have
>
> txtMonthlyRent
> and
> txtAnnualRent
>
> i need the monthly rent multiplied times 12 to automatically fill in
> the txtAnnualRent box.
>
> this is what i've got so far (after trying many variations):
> ****************************************
> Private Sub txtAnnualRent_Enter()
>
> myMonthlyRent = txtMonthlyRent.Value
> myMonthlyRent = myMonthlyRent * 12
>
> End Sub
> ****************************************
> i've tried myMonthlyRent.Formula but that won't work either.
> If somebody could help me i'd be very appreciative!
> thanks
> susan