Input or Remove Employees

[jltjr75]

I am looking for a way to make a weekly employee hour spreadsheet more user-friendly.

I have an INPUT & REMOVE button at the top that I want to add or remove a name from the spreadsheet to INCLUDE the TOTAL HOURS Tab and ALL the DAY Tabs (Tue, Wed, Fri, Sat, Sun, Mon).

I need these buttons to work with adding and removing rows WITHOUT messing up my formulas or my shaded green areas (areas the person inputting the hours should NOT touch)

Link to view spreadsheet
https://drive.google.com/open?id=0B_xYf3oUty0CVWxWNUdXc1lzV1E

Thank you all for your support,

Jay

 

[jltjr75]

I am looking for a way to make a weekly employee hour spreadsheet more user-friendly.

I have an INPUT & REMOVE button at the top that I want to add or remove a name from the spreadsheet to INCLUDE the TOTAL HOURS Tab and ALL the DAY Tabs (Tue, Wed, Fri, Sat, Sun, Mon).

I need these buttons to work with adding and removing rows WITHOUT messing up my formulas or my shaded green areas (areas the person inputting the hours should NOT touch)

Link to view spreadsheet
https://drive.google.com/open?id=0B_xYf3oUty0CVWxWNUdXc1lzV1E

Also, I am sorry but I forgot to add I would like it to alphabetize by the last name.

Can someone point me in the right direction to figure this out by myself if it is too hard for the boards here, please?

Thanks again,

Jay

 

[jltjr75]

Any help available? Thanks.

 

[jltjr75]

I am not sure if anyone is viewing this thread anymore but the remove code has been created. I only need the Input button to work adding rows while alphabetizing by the last name WITHOUT messing up my formulas or my shaded green areas.

Code to Remove name:

Option Explicit

Private Sub CommandButton1_Click()
Dim Rng As Range
Dim Sht As Worksheet
Application.Calculation = xlCalculationManual
For Each Sht In ActiveWorkbook.Sheets
    Sht.Activate
    Set Rng = Range("A1").CurrentRegion
    Rng.AutoFilter
    Rng.AutoFilter Field:=1, Criteria1:=Sheets("Total Hours").Range("M2")
    Rng.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    Rng.AutoFilter
    Set Rng = Nothing
Next Sht
Application.Calculation = xlCalculationAutomatic
End Sub

Link to view spreadsheet
https://drive.google.com/open?id=0B_...WxWNUdXc1lzV1E


Thank you all for your support,

Jay