How do I write a macro to increase the value of any cell by 1?

[Westwolf]

I am trying to create a macro to increase the value of any cell by a
constant, e.g., the number one. The VBA below keeps returning 4 even when
applied to a cell with, say 8 in it. I'd like the macro to return 9 in that
case.

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 6/6/2008 by Robert G. Wood
'
' Keyboard Shortcut: Ctrl+m
'
ActiveCell.FormulaR1C1 = "=1+3"
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub

 

[FSt1]

hi
this is because your recorded macro is putting the same formula in all
cells. i don't think you want that
so try this...

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 6/6/2008 by Robert G. Wood
'
' Keyboard Shortcut: Ctrl+m
'
ActiveCell.Value = ActiveCell.Value + 1
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub

regards
FSt1

 

[Bob Phillips]

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

--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)