Hi again

You have to unprotect the sheet by macro the do your stuff and protect the
sheet again:

Sheets("Sheet1").UnProtect Password:="JustMe"
'Your code
Sheets("Sheet1").Protect Password:="JustMe"

Hopest this helps.

--
Per


"massi" skrev i meddelelsen
...
here i am again..

there was something i haven't thought; the sheet will be protected and
when
running the macro an error appears (run-time error'1004')

is there a way to make the macro work even if te heet is protected?

thanks

"massi" wrote:

thanks Per,
it works.

"Per Jessen" wrote:

Hello

Try this:

LastRow = Range("A" & Rows.Count).End(xlUp).Row
Rows(LastRow).Copy
Rows(LastRow).Insert
Rows(LastRow + 1).SpecialCells(xlCellTypeConstants).ClearContents
Cells(LastRow + 1, 1) = Cells(LastRow, 1) + 1

Regards,
Per

"massi" skrev i meddelelsen
...
Hi there,
i have a similar request so you might able to help...

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 I
press
a button and that would increase the number of the first cell from
the
previous line.

i have found this one:

Lastrow = Range("A" & Rows.Count).End(xlUp).Row
Rows(Lastrow).Copy
Rows(Lastrow).Insert
Rows(Lastrow + 1).SpecialCells(xlCellTypeConstants).ClearContents

but it only add the row without increasing the cell in column a

hope you can help.
thanks

"MCheru" wrote:

I am trying to create a macro that will search A3:G100 for blank
rows.
When
a blank row is found, I want the macro to copy the contents in the
cell
above
it A(blank):G (blank) and paste those contents in each blank row
going
down
((A(blank):G (blank)) until the next row with contents is reached.
Is
that
possible?