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]

How about

Private Sub CommandButton1_Click()
    Dim NewRow As Long
    Dim m As Variant
    
    If Not Me.opt_AddStock And Not Me.opt_TransferStock Then
      MsgBox "please select Add or Transfer"
      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", "Transfered")
        .Range("E" & NewRow).Value = Now
    End With
'update master
    With wsMaster
        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 = Val(Me.TextBox2.Value)
                  .Value = .Value - Val(Me.TextBox2.Value)
               End If
            End With
        End If
    End With
    Application.DisplayAlerts = True
    Unload Me
End Sub

 

[johnsonk]

Fluff, Thank you that works great.

 

[Fluff]

You're welcome & thanks for the feedback

 

[johnsonk]

Hi,

I'm having a little trouble with the code in #2 when I select transfer stock it minuses from warehouse but does not add to the value that is already in holding area it replaces. So from the example below if I transferred 0050 it would minus that from warehouse
to show 0350 but would only show 0050 in holding area instead of 0100 any help would be great.

[TABLE="width: 1213"]
<colgroup><col><col><col span="2"><col></colgroup><tbody>[TR]
[TD][TABLE="width: 1213"]
<colgroup><col><col><col span="2"><col></colgroup><tbody>[TR]
[TD][/TD]
[TD][/TD]
[TD]Warehouse[/TD]
[TD]Holding Area[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]PLU[/TD]
[TD]Ingredients Description[/TD]
[TD]Total Weight kg[/TD]
[TD]Total Weight kg[/TD]
[TD]Total Stock kg[/TD]
[/TR]
[TR]
[TD]3011[/TD]
[TD]UNSALTED BUTTER ROASTED ONION[/TD]
[TD]0400[/TD]
[TD]0050[/TD]
[TD]0450[/TD]
[/TR]
</tbody>[/TABLE]
<strike></strike>
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

 

[Fluff]

How about

    With wsMaster
        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 =[COLOR=#ff0000] .Offset(, 1).Value + [/COLOR]Val(Me.TextBox2.Value)
                  .Value = .Value - Val(Me.TextBox2.Value)
               End If
            End With
        End If
    End With

 

[johnsonk]

hi, i'm getting a run time error 424 object required on line: m =Application.Match(Val(Me.ComboBox1.Text), .Columns(1), 0)

 

[Fluff]

Is that with your test file?

 

[johnsonk]

Hi, yes same file


Private Sub CommandButton1_Click()
Dim NewRow As Long
Dim m As Variant

If Not Me.opt_AddStock And Not Me.opt_TransferStock Then
MsgBox "please select Add or Transfer"
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", "Transfered To Holding Area")
.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 = Val(Me.TextBox2.Value)
.Value = .Value - Val(Me.TextBox2.Value)
Application.DisplayAlerts = True
End If
End With
End If
End With
Unload Me
frm_Stock.Show

 

[johnsonk]

Hi, I have just tried again and now it works not sure why it errored the first time but yet again thank you so much for your help.