Updating Cell value in worksheet

[rharri1972]

what would the code be if I have a value in cell "A1" and I want to, with the click of a button on a userform, have range A1 value = a certain textbox value from the userform be added to the value in A1 on the worksheet to update value.

Example: current value of A1 is 11
Text box on userform will have a value of 4
On click of button i want the 4 to be added to the 11 in cell A1 to update to 15.

Worksheet = "Inventory"
userform=userform1

Thank you for ANY help!

 

[rlv01]

One way.

Private Sub CommandButton1_Click()
    With Worksheets("Inventory").Range("A1")
        .Value = .Value + Val(Me.TextBox1.Value)
    End With
End Sub

 

[rharri1972]

One way.

Private Sub CommandButton1_Click()
    With Worksheets("Inventory").Range("A1")
        .Value = .Value + Val(Me.TextBox1.Value)
    End With
End Sub

Thanks rlv01... works great!!

 

[rlv01]

Glad I could help.