Increase value in a second spreasheet

[itommy14]

Hi,
got this code to increase value by one (same position, row and column, of the active cell) in a second spreadsheet ("foglio2")...
Sheets("foglio2").Cells(ActiveCell.Row, ActiveCell.Column) = ActiveCell.Value + 1

but it doesn't work cause it only count 1 in the second spreasheet, doesn't increase anymore each time I run the macro clicking a button (going 2,3,4, etc...)
How can I do?
Thank you

 

[Arjan77]

If your destination sheet is empty by default try this:

If Sheets("foglio2").Cells(ActiveCell.Row, ActiveCell.Column) = "" Then
Sheets("foglio2").Cells(ActiveCell.Row, ActiveCell.Column) = ActiveCell.Value + 1
Else
Sheets("foglio2").Cells(ActiveCell.Row, ActiveCell.Column) = Sheets("foglio2").Cells(ActiveCell.Row, ActiveCell.Column) + 1
End If

 

[itommy14]

it works perfectly! Thank you!

 

[itommy14]

Sorry there is a problem, it doesn't work if my origin cells are not empty, how could I do?

 

[Arjan77]

Do you mean there is already a value on your destination sheet? Then it depends on your objective, you could clear all cells with a workbook_open event so the macro works for a single session.
Could you clarify in what you are expecting in different situations?