Incrament a different cell with a macro.

[Twill]

I'm working on an inventory spreadsheet where the item's names are listed in column A, their ID number in column B, and the current number in inventory in column C. I have macro buttons for incrementing and decrementing the values in column C, but they only work when the cell in column C is selected. Is there a way to increment and decrement the cell in column C that is in the same row as the currently selected cell?

Sub IncramentFull()
    ActiveCell.Value = ActiveCell.Value + 1
End Sub

 

[Joe4]

Welcome to the Board!

Try:

Sub IncramentFull()
     Cells(ActiveCell.Row,"C").Value =Cells(ActiveCell.Row,"C").Value + 1
End Sub

 

[WinteE]

Use the .offset to do so.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("a1:a10")) Is Nothing Then
        Target.Offset(0, 2).Value = Target.Offset(0, 2).Value + 1
    End If
End Sub

This will add 1 to the value in cell C3 when you change the focus to cell A3.
The 'Intersect' part handles which cells will start the code ones they get the focus. In this case only cells A1 to A10 will activate this piece of code.

 

[Joe4]

I guess we never established if you want this to run automatically or not. My code is just a variation of your original code that would be run manually. WinteE's code will run automatically, but anytime a cell in the range A1:A10 is selected. If you want it to run automatically, but only if a cell in range A1:A10 is changed, then you would use the "Worksheet_Change" event instead of "Worksheet_SelectionChange".

 

[Twill]

Thanks so much for the help! I could find ways to alter the active cell based on offsets, but no way to say "always go to this column". I probably should have mentioned that at the moment I do have it set to run on a button press. I apologize for the confusion. Thanks again for the help!