Insert Name Alphabetically into Column with VBA

[ciavala]

Hello Everyone,

Need some help with some VBA. I want to take the value of an input box, which is going to be a name of a new employee, and then look down the column of employee names alphabetically and insert new row with new name. Is this possible?


Thanks
ciavala

 

[rolexdude]

Add this

rEmpList(lPosition + 1).Interior.color=vbred

That worked great. Now, I realize that when I insert a new item, it does insert that name in the named range, as it is intended. However, it inserts a row only in that column. How do I make it so that it inserts a row across the entire worksheet?

 

[Fluff]

Change

rEmpList(lPosition + 1).Insert

to

rEmpList(lPosition + 1).EntireRow.Insert

 

[rolexdude]

Change

rEmpList(lPosition + 1).Insert

to

rEmpList(lPosition + 1).EntireRow.Insert

Thanks, Fluff. It works great.

 

[Fluff]

Glad to help & thanks for the feedback

Have a good weekend

 

[LBinGA]

Wonderful bit of code. Thank you!

I noticed the Undo is not available after the code runs. In case one of my users adds a row in error, how do I programmatically 'turn on' the Undo option?

Thanks!
LBinGA

 

[LBinGA]

Another question on this: How would I copy certain cells from above the newly added row if the name matches the cell above it.

For instance, if I add AXEL SMITH to A15, and that matches exactly the contents above it in A14, I would like to copy what is in cells M14-V14 to M15-V15.

Thanks again!

 

[Liff_]

Hi All,

Can somebody advise how can I make this brillant code work in all worksheets whitin workbook in the same time?

Thanks in advance!