Need help with userform vba

[johnsonk]

Hi, I have created a userform with 2 option buttons, 1 combobox and 2 textboxes, I also have 2 sheets Transfers and Master, if I select the add stock option button and fill out the rest of the form and click submit it adds stock in the master sheet column C which works fine the part I can not figure out is how to transfer stock with the other option button I need it to add the amount to column D then minus it from colum C. There is a link below with the file which will make more sense.

https://www.dropbox.com/s/8eln30oauh05p6i/Test_1.xlsm?dl=0

Regards

 

[Fluff]

Glad it's working & thanks for the feedback

 

[johnsonk]

Hi,

I have added another optionbox to my userform (opt_WasteStock) and tried to update the vba with no luck as I am very new to this, I'm am getting a compile error: wrong number of arguments or invalide property assignment.

I need the value to minus from sheet IngMaster column D.

[FONT=Verdana]Private Sub CommandButton1_Click()
    Dim NewRow As Long
    Dim m As Variant
    
    If Not Me.opt_AddStock And Not Me.opt_TransferStock And Not Me.opt_WasteStock Then
      MsgBox "please select Add Stock, Transfer Stock or Waste Stock"
      Exit Sub
   End If
    Application.DisplayAlerts = False
    
    With wsTransfers
        NewRow = .Range("A" & .Rows.count).End(xlUp).Row + 1
        .Range("A" & NewRow).Value = Me.ComboBox1.Text
        .Range("B" & NewRow).Value = Me.TextBox1.Text
        .Range("C" & NewRow).Value = Me.TextBox2.Text
        .Range("D" & NewRow).Value = IIf(Me.opt_AddStock.Value, "Added To Warehouse", Iff("Transfered To Holding Area", "Waste Stock"))
        .Range("E" & NewRow).Value = Now
    End With
'update Ingmaster
    With wsIngMaster
        m = Application.Match(Val(Me.ComboBox1.Text), .Columns(1), 0)
        If Not IsError(m) Then
            With .Cells(CLng(m), "C")
               If Me.opt_AddStock Then
                  .Value = .Value + Val(Me.TextBox2.Value)
               ElseIf Me.opt_TransferStock Then
                  .Offset(, 1).Value = .Offset(, 1).Value + Val(Me.TextBox2.Value)
                  .Value = .Value - Val(Me.TextBox2.Value)
                  ElseIf Me.opt_WasteStock Then
                  .Offset(, 1).Value = .Offset(, 1).Value + Val(Me.TextBox2.Value)
                  .Value = .Value - Val(Me.TextBox2.Value)
    Application.DisplayAlerts = True
               End If
               End With
            End If
            End With
        End If
    End With
    Unload Me
    frm_Stock.Show
End Sub
[/FONT]

 

[Fluff]

Which line gives the error?

 

[johnsonk]

.Range("D" & NewRow).Value = IIf(Me.opt_AddStock.Value, "Added To Warehouse", Iff("Transfered To Holding Area", "Waste Stock"))

 

[Fluff]

Try

.Range("D" & NewRow).Value = IIf(Me.opt_AddStock.Value, "Added To Warehouse", IIf(Me.Opt_TransferStock, "Transfered To Holding Area", "Waste Stock"))