Add and subtract cells based on Form Button Position

[LeoScibi]

I need to record movement of stock.
When I click the + Button, I need to subtract 1 from the inventory column and add 1 to the correct location.

In this forum I found the following code that allows me to write an "X" in the cell, but I can't figure out how to add1 and subtract1 istead.

Public Sub Button_Click()
With ActiveSheet.Buttons(Application.Caller)
Cells(.TopLeftCell.Row, .BottomRightCell.Column + 3).Value = "X"
End With
End Sub

Could you please help me out with this?
Thanks in advance!
Leo

 

[HongRu]

Try.
The codes are not tested.

The code is for the button + under the blue cell.

Public Sub Button_Click()
    With ActiveSheet.Buttons(Application.Caller)
        'Location  +1
        Cells(.TopLeftCell.Row, .BottomRightCell.Column + 4).Value = Cells(.TopLeftCell.Row, .BottomRightCell.Column + 4).Value + 1
        'Inventory -1
        Cells(.TopLeftCell.Row, .BottomRightCell.Column - 1).Value = Cells(.TopLeftCell.Row, .BottomRightCell.Column - 1).Value + 1
    End With
End Sub

And the following code should be for the button + under the red cell

Public Sub Button_Click()
    With ActiveSheet.Buttons(Application.Caller)
        'Location  +1
        Cells(.TopLeftCell.Row, .BottomRightCell.Column + 4).Value = Cells(.TopLeftCell.Row, .BottomRightCell.Column + 4).Value + 1
        'Inventory -1
        Cells(.TopLeftCell.Row, .BottomRightCell.Column - 2).Value = Cells(.TopLeftCell.Row, .BottomRightCell.Column - 2).Value + 1
    End With
End Sub

And this for the button + under for the green cell

Public Sub Button_Click()
    With ActiveSheet.Buttons(Application.Caller)
        'Location  +1
        Cells(.TopLeftCell.Row, .BottomRightCell.Column + 4).Value = Cells(.TopLeftCell.Row, .BottomRightCell.Column + 4).Value + 1
        'Inventory -1
        Cells(.TopLeftCell.Row, .BottomRightCell.Column - 3).Value = Cells(.TopLeftCell.Row, .BottomRightCell.Column - 3).Value + 1
    End With
End Sub

 

[LeoScibi]

That's amazing,
Thank you so much for the quick fix.

I had to tweak it slightly but it works perfectly now.

Public Sub Button_Click_Location_1()
With ActiveSheet.Buttons(Application.Caller)
'Location +1
Cells(.TopLeftCell.Row, .BottomRightCell.Column + 3).Value = Cells(.TopLeftCell.Row, .BottomRightCell.Column + 3).Value + 1
'Inventory -1
Cells(.TopLeftCell.Row, .BottomRightCell.Column - 2).Value = Cells(.TopLeftCell.Row, .BottomRightCell.Column - 2).Value - 1
End With
End Sub

Public Sub Button_Click_Location_2()
With ActiveSheet.Buttons(Application.Caller)
'Location +1
Cells(.TopLeftCell.Row, .BottomRightCell.Column + 3).Value = Cells(.TopLeftCell.Row, .BottomRightCell.Column + 3).Value + 1
'Inventory -1
Cells(.TopLeftCell.Row, .BottomRightCell.Column - 3).Value = Cells(.TopLeftCell.Row, .BottomRightCell.Column - 3).Value - 1
End With
End Sub

Public Sub Button_Click_Location_3()
With ActiveSheet.Buttons(Application.Caller)
'Location +1
Cells(.TopLeftCell.Row, .BottomRightCell.Column + 3).Value = Cells(.TopLeftCell.Row, .BottomRightCell.Column + 3).Value + 1
'Inventory -1
Cells(.TopLeftCell.Row, .BottomRightCell.Column - 4).Value = Cells(.TopLeftCell.Row, .BottomRightCell.Column - 4).Value - 1
End With
End Sub