vba new

phoenixmoto · #1 11-05-2018, 02:52 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 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.

gmayor · #2 11-05-2018, 03:51 AM

Use the following

Sheet code

Code:

Option Explicit

Sub amritraj()
    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
        .Show
    End With
    Unload UserForm1
End Sub

Userform code

Code:

Option Explicit

Private Sub cancel_Click()
    Hide
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
    Hide
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

macropod · #3 11-05-2018, 07:09 PM

Cross-posted at: http://www.vbaexpress.com/forum/show...?64001-vba-new
For cross-posting etiquette, please read: http://www.excelguru.ca/content.php?184