hi. i have a spread sheet where i have to record some events.
the first row is already formatted and the first cell has a number 1.
i would like a macro to automatically create another line each time a press
a button and that would increase the number of the first cell from the
previous line.

a sheet like below:

number header2 header3
1 bla bla zzz zzzz
2 qwfjkd jjioeereorko
3 gdfgfgf frefsdfdf

i would like a macro that associated to a button automatically add a line
below the last one, keeping the same formatting of the cells and in the line
added increase the column "number" by 1

in order to have:

number header2 header3
1 bla bla zzz zzzz
2 qwfjkd jjioeereorko
3 gdfgfgf frefsdfdf
4



thanks

To add a row you can use this code; but if you are looking at auto numbering
you can acheive this with a simple formula in column A =IF(B2<>"",A1+1,"")

lngRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
Rows(lngRow + 1).Insert
Cells(lngRow + 1, 1) = Cells(lngRow, 1) + 1


If this post helps click Yes
---------------
Jacob Skaria


"massi" wrote:

> hi. i have a spread sheet where i have to record some events.
> the first row is already formatted and the first cell has a number 1.
> i would like a macro to automatically create another line each time a press
> a button and that would increase the number of the first cell from the
> previous line.
>
> a sheet like below:
>
> number header2 header3
> 1 bla bla zzz zzzz
> 2 qwfjkd jjioeereorko
> 3 gdfgfgf frefsdfdf
>
> i would like a macro that associated to a button automatically add a line
> below the last one, keeping the same formatting of the cells and in the line
> added increase the column "number" by 1
>
> in order to have:
>
> number header2 header3
> 1 bla bla zzz zzzz
> 2 qwfjkd jjioeereorko
> 3 gdfgfgf frefsdfdf
> 4
>
>
>
> thanks

thanks!

"Jacob Skaria" wrote:

> To add a row you can use this code; but if you are looking at auto numbering
> you can acheive this with a simple formula in column A =IF(B2<>"",A1+1,"")
>
> lngRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
> Rows(lngRow + 1).Insert
> Cells(lngRow + 1, 1) = Cells(lngRow, 1) + 1
>
>
> If this post helps click Yes
> ---------------
> Jacob Skaria
>
>
> "massi" wrote:
>
> > hi. i have a spread sheet where i have to record some events.
> > the first row is already formatted and the first cell has a number 1.
> > i would like a macro to automatically create another line each time a press
> > a button and that would increase the number of the first cell from the
> > previous line.
> >
> > a sheet like below:
> >
> > number header2 header3
> > 1 bla bla zzz zzzz
> > 2 qwfjkd jjioeereorko
> > 3 gdfgfgf frefsdfdf
> >
> > i would like a macro that associated to a button automatically add a line
> > below the last one, keeping the same formatting of the cells and in the line
> > added increase the column "number" by 1
> >
> > in order to have:
> >
> > number header2 header3
> > 1 bla bla zzz zzzz
> > 2 qwfjkd jjioeereorko
> > 3 gdfgfgf frefsdfdf
> > 4
> >
> >
> >
> > thanks