Öka/minska cellvärde med knapp

[Wheninrome]

Jag har ett antal cellvärden jag vill påverka medelst knappar men får inte till ett macro för detta. Nån som har tips eller kunskap om detta?

 Range("C3").Select
    ActiveCell.FormulaR1C1 = "=RC[-1]+1"

Enligt ovan så ändras C3 bara till värdet 1 fast jag vill ett givet värde ska öka med 1 istället. Nån vänlig som vill hjälpa?

[fredde]

Range("C3").Select
CellValue = ActiveCell.Value
CellValue = CellValue + 1
ActiveCell.Value = CellValue   
End Sub

Testa detta.

 

TestMedKnapp.zip

 

Edit: tog bort mellanslag i koden.

 

Redigerad December 19, 2013 av fredde

[Wheninrome]

Tack, precis vad jag behövde