code for number automation

[sangeeta25]

I wanted to ask if anyone knows a code for the following action i woud like to take:

I have column G which only contains numbers, from low to high, i.e. cell G12 contains the number 123, G11= 124, G10= 125, G9= 126...... G3= 132, now G1 has a title for that column and G2 is made to be a button to insert a new row, so what i would like to do is have a code so that when one clicks to insert a new row, right now, G3 becomes blank and you must manually enter the next number, in this case 133, but to have that number automatically be inserted in the cell, thus again when another row is inserted G3 will now read 134 and then again when another row is inserted G3 will now automatically read 135, thus always the number above the number in the previous cell.

Is there a code to do this?

I will much appreciate your help.

NOTE: i would like a code, attempting to do this through simple automation does not work for what i specifically am asking


Sangeeta

 

[steve the fish]

This should do it:

Range("G3").EntireRow.Insert Shift:=xlDown
Range("G3") = Range("G4") + 1

 

[sangeeta25]

Hi,

Thanks for the reply, however once i've put the code in , an error box appears and reads the following: "Compile error: invalid outside procedure" and highlight where it reads "x1Down" in the code you have provided me with

Sangeeta

 

[steve the fish]

It doesn't say x1down it says xldown where you have changed the l to a 1.

 

[sangeeta25]

thank you very much!!!
it works