From: Command Button Calculations Command Button on 25 May 2010 11:58 I am trying to insert a command button so that when the user fills out the form and clicks the button, an amount will calculate. For example, the sales price is in A1, when the user clicks the command button, the sales price will be divided by 1000 then divided by 2 and the answer will appear in A5. Can anyone help???? From: Gord Dibben on 25 May 2010 12:47 You can do that with a simple formula in A5 and no command button but if you want a button. Assign this macro to a button from the Forms Toolbar. Sub divide() With ActiveSheet .Range("A5").Value = Range("A1").Value / 2000 End With End Sub Gord Dibben MS Excel MVP On Tue, 25 May 2010 08:58:01 -0700, Command Button Calculations wrote: >I am trying to insert a command button so that when the user fills out the >form and clicks the button, an amount will calculate. For example, the sales >price is in A1, when the user clicks the command button, the sales price will >be divided by 1000 then divided by 2 and the answer will appear in A5. Can >anyone help???? From: FSt1 on 25 May 2010 12:56 Sub xlcalcit() Dim c As Double c = [A1].Value c = c / 1000 c = c / 2 [A5].Value = c End Sub regards FSt1 "Command Button Calculations" wrote: > I am trying to insert a command button so that when the user fills out the > form and clicks the button, an amount will calculate. For example, the sales > price is in A1, when the user clicks the command button, the sales price will > be divided by 1000 then divided by 2 and the answer will appear in A5. Can > anyone help???? From: Dave Peterson on 25 May 2010 13:02 Just a minor typing change. Sub divide() With ActiveSheet .Range("A5").Value = .Range("A1").Value / 2000 End With End Sub I added the dot in front of the .range("A1")... stuff. But even without this dot, the code would work fine -- since you're using the activesheet and the code is in a general module. But it's never a bad idea to qualify ranges/objects . Gord Dibben wrote:> > You can do that with a simple formula in A5 and no command button but if you > want a button. > > Assign this macro to a button from the Forms Toolbar. > > Sub divide() > With ActiveSheet > .Range("A5").Value = Range("A1").Value / 2000 > End With > End Sub > > Gord Dibben MS Excel MVP > > On Tue, 25 May 2010 08:58:01 -0700, Command Button Calculations Button Calculations(a)discussions.microsoft.com> wrote: > > >I am trying to insert a command button so that when the user fills out the > >form and clicks the button, an amount will calculate. For example, the sales > >price is in A1, when the user clicks the command button, the sales price will > >be divided by 1000 then divided by 2 and the answer will appear in A5. Can > >anyone help???? -- Dave Peterson From: Gord Dibben on 25 May 2010 13:51 Thanks Dave. Gord On Tue, 25 May 2010 12:02:02 -0500, Dave Peterson wrote: >Just a minor typing change. > >Sub divide() > With ActiveSheet > .Range("A5").Value = .Range("A1").Value / 2000 > End With >End Sub > >I added the dot in front of the .range("A1")... stuff. > >But even without this dot, the code would work fine -- since you're using the >activesheet and the code is in a general module. > >But it's never a bad idea to qualify ranges/objects . > >Gord Dibben wrote: >> >> You can do that with a simple formula in A5 and no command button but if you >> want a button. >> >> Assign this macro to a button from the Forms Toolbar. >> >> Sub divide() >> With ActiveSheet >> .Range("A5").Value = Range("A1").Value / 2000 >> End With >> End Sub >> >> Gord Dibben MS Excel MVP >> >> On Tue, 25 May 2010 08:58:01 -0700, Command Button Calculations > Button Calculations(a)discussions.microsoft.com> wrote: >> >> >I am trying to insert a command button so that when the user fills out the >> >form and clicks the button, an amount will calculate. For example, the sales >> >price is in A1, when the user clicks the command button, the sales price will >> >be divided by 1000 then divided by 2 and the answer will appear in A5. Can >> >anyone help????  |  Pages: 1 Prev: keyboard recognition has slowed down in excel, help/Next: round up to nearest 50p