command button calculation

[bronwyn]

hi all, what im trying to achieve is to have a command button, which will take input from a textbox, and calculate results and display in textbox2. the calculation will be whatever number is entered in textbox1, divide this number by 18 and multiply it by 40. i know i can achieve this with formulas, but need to use vba and commands from toolbox to achieve this, as alwasy any help appreciated

 

[fridgenep]

Hi bronwyn,

try this one in a seperate module:

Option Explicit

Sub test()
 If IsNumeric(ActiveSheet.TextBox1.Value) And IsEmpty(ActiveSheet.TextBox1) = False Then
   ActiveSheet.TextBox2.Value = ActiveSheet.TextBox1.Value / 18 * 40
 Else
   MsgBox "Please check TextBox1"
   ActiveSheet.TextBox2.Value = ""
 End If
End Sub

EDIT: I think you´re able to chang my code for working with a command button... If not:

Option Explicit

Private Sub CommandButton1_Click()
 If IsNumeric(ActiveSheet.TextBox1.Value) And IsEmpty(ActiveSheet.TextBox1) = False Then
   ActiveSheet.TextBox2.Value = ActiveSheet.TextBox1.Value / 18 * 40
 Else
   MsgBox "Please check TextBox1"
   ActiveSheet.TextBox2.Value = ""
 End If
End Sub

 

[irresistible007]

assuming that your command button is named "cmd_Calculate"... Just kick the following code:

Private Sub Cmd_Calculate()
TextBox2.Text = TextBox1.Text / 18 * 40
End Sub