PDA

View Full Version : vba new



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

gmayor
11-05-2018, 03:55 AM
This Excel question was asked and answered at http://www.msofficeforums.com/word/40820-vba-new-newpost.html

macropod
11-05-2018, 07:10 PM
phoenixmoto: Please read VBA Express' policy on Cross-Posting in item 3 of the rules: http://www.vbaexpress.com/forum/faq.php?faq=new_faq_item#faq_new_faq_item3