Auto Insert NEw Row with formatting

G

Greg

I have an employee job list. I have Col. "B" as Employee Names. When I
click onto the cell (i.e. "B1") a drop down list appears with all the
employees names to pick from. This list is from the Master Employee Record
workbook. When I pick on a name it will automatically fill in all the cells
with formulas across the board and cells are linked to the cells that I type
in the hrs. This way all required taxes are atuomatically figured out. So
the question is this....As soon as I click the name from the drop down list I
want an "Entirely New Row Inserted" across the board directly under the name
I just picked.

Thank in advance

Greg
 
D

Don Guillett

Right click sheet tab>view code>insert this

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row < 9 Or Target.Column <> 2 Then Exit Sub
Rows(Target.Row + 1).insert
Application.EnableEvents = False
myname = Target
Rows(Target.Row - 1).Copy Rows(Target.Row)
Target = myname
Application.EnableEvents = True
Cells(Target.Row, "f").Resize(, 12).ClearContents
Application.CutCopyMode = False
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top