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 amritraj()
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

userform1 image is attached to this thread.

Attached Images

userform1.png (239.6 KB, 20 views)