VBA to duplicate cell and continue numbering

[adamheon]

Is there a code that will duplicate/insert a new row and continue the numbering system that is in column A. In the attached example I use the following code to duplicate the row that is above the cell that contains the letters "BO". In column A I have a numbering system for each row; ie SU-1, SU-2, SU-3, etc. I would like to click the button and add a new row and to contine the next number in line. So if the last row was SU-9, i would like the new row to = SU-10.

Please Login or Register  to view this content.

[djdjdj]

I think this will do it:

Please Login or Register  to view this content.

[jaslake]

Another approach

Please Login or Register  to view this content.

[adamheon]

When i use djdjdj's code it resets at 10. So after item 10 or goes back to 1. Is there a way for it to continue numbering 11,12,13,etc?

[adamheon]

i tried the code from jaslake and that didnt work. It kept the numbering at 1 and did not increase. FYI.

[jaslake]

Works for me...see attached...

[adamheon]

my apologies. it works perfect! I must have modified it incorrectly. Thanks for your help.

is there a way for it to clear cells D, E and F at the same time it duplicates? (not sure if i should start a new thread or not)

[jaslake]

Add the line of Code as indicated

Please Login or Register  to view this content.

[adamheon]

Thank you very much. That was a huge help.

[bubleeshaark]

jaslake's works for me.

Or for START-UP you could have cheated and said:

Please Login or Register  to view this content.

But that wouldn't have solved anything if you tried to do BO also.

[jaslake]

You're welcome...glad I could help.