phoenixmoto
11-05-2018, 02:39 AM
Here module1 code is initialised when i run Amritraj() macro and then userform1 is showed
when i click ok command button nothing happens. actually it should have run sum macro and addition should have executedmodule1 code
Sub phoenixmoto()
Call initialise
UserForm1.Show
End Sub
Sub initialise()
With UserForm1
.wow.Value = True
With .comb
.AddItem "addition"
.AddItem "subtraction"
End With
.comb.Value = "subtraction"
.TextBox1.Value = 20
.TextBox2.Value = 30
.TextBox3.Value = 40
End With
End Sub
Sub sum(a As Variant, b As Variant, c As Variant)
Cells(1, 1).Value = Application.WorksheetFunction.sum(a, b, c)
End Sub
Sub minus(a As Variant, b As Variant, c As Variant)
Cells(1, 1).value = Application.worksheetfunction.sum(a - b - c)
End Sub
userform1 code
Private Sub cancel_Click()
Unload UserForm1
End Sub
Private Sub ok_Click()
Dim a As Variant, b As Variant, c As Variant
If TextBox1.Value = "" Then
MsgBox "a field is empty"
Exit Sub
End If
If TextBox2.Value = "" Then
MsgBox "b field is empty"
Exit Sub
End If
If TextBox3.Value = "" Then
MsgBox "c field is empty"
Exit Sub
End If
a = TextBox1.Value
b = TextBox2.Value
c = TextBox3.Value
If wow.Value = True Then
Select Case comb.Value
Case addition
Call sum(a, b, c)
Case subtraction
Call minus(a, b, c)
End Select
End If
End Sub
here is screenshot of userform1
23151
when i click ok command button nothing happens. actually it should have run sum macro and addition should have executedmodule1 code
Sub phoenixmoto()
Call initialise
UserForm1.Show
End Sub
Sub initialise()
With UserForm1
.wow.Value = True
With .comb
.AddItem "addition"
.AddItem "subtraction"
End With
.comb.Value = "subtraction"
.TextBox1.Value = 20
.TextBox2.Value = 30
.TextBox3.Value = 40
End With
End Sub
Sub sum(a As Variant, b As Variant, c As Variant)
Cells(1, 1).Value = Application.WorksheetFunction.sum(a, b, c)
End Sub
Sub minus(a As Variant, b As Variant, c As Variant)
Cells(1, 1).value = Application.worksheetfunction.sum(a - b - c)
End Sub
userform1 code
Private Sub cancel_Click()
Unload UserForm1
End Sub
Private Sub ok_Click()
Dim a As Variant, b As Variant, c As Variant
If TextBox1.Value = "" Then
MsgBox "a field is empty"
Exit Sub
End If
If TextBox2.Value = "" Then
MsgBox "b field is empty"
Exit Sub
End If
If TextBox3.Value = "" Then
MsgBox "c field is empty"
Exit Sub
End If
a = TextBox1.Value
b = TextBox2.Value
c = TextBox3.Value
If wow.Value = True Then
Select Case comb.Value
Case addition
Call sum(a, b, c)
Case subtraction
Call minus(a, b, c)
End Select
End If
End Sub
here is screenshot of userform1
23151