Hi,

Currently looking for a simple macro that will type the number 1 and shift down a cell and continue to do so each time the macro is pressed, hoping this is possible sorry if it is not, relatively new to Excel and macros.

Thanks in advance.

Sub enter_one()
With ActiveCell
.Value = 1
.Offset(1,0).Select
End With
End Sub

But wouldn't it be just as easy to type 1 then ENTER?

There must be more to this than what you describe.


Gord

On Thu, 10 May 2012 09:30:27 +0000, Helpmacro
wrote:


Hi,

Currently looking for a simple macro that will type the number 1 and
shift down a cell and continue to do so each time the macro is pressed,
hoping this is possible sorry if it is not, relatively new to Excel and
macros.

Thanks in advance.