Identify employee and remove the rows.

[soma34]

Hi there,
For the problem i have, i thought a pivot table would work, but it doesnt. I will try explain as best as i can.

Column A - Task List (about 100 of them)
Column B - Monday
Column C - Hours
Column D - Tuesday
Column E - Hours
... and so on.

Under the "day" columns, we enter an employees name to allocate them to the task. There are 10 employees in total.


What I am trying to achieve?
Rather than each employee having the large list of tasks and having to find their name among the others, i would like a separate sheet for each employee that basically looks for their name and displays those lines in a nice table. So that each day they know just their tasks.

Attempts
1) I thought a pivot table would work, but because of the nature of the table, the pivot table results in layer upon layer and displays poorly.
2) I then did If statements which kind of worked, but its static in the sense that the resultant sheet will show just the one employees name and tasks, but wherever he is not allocated is obviously just a blank row. If an employee only has 5 tasks for the day, he has 95 blank rows throughout those tasks.

I hope ive explained it clearly. Any ideas?

 

[Logit]

.
One example of workbook code :

Sub CopyInfo()
Dim wkSht As Worksheet
Dim cell As Range
Dim nextRow As Long
Dim lRow As Long
Dim i As Integer


Application.ScreenUpdating = False


lRow = Sheets("Data").Cells(Rows.Count, "A").End(xlUp).Row
For Each wkSht In Sheets
    Sheets("Data").Activate
    For i = 2 To lRow
        
        If Sheets("Data").Range("A" & i).Value = wkSht.Name Then
            Sheets("Data").Activate
            nextRow = wkSht.Range("A" & Rows.Count).End(xlUp).Row + 1
            Sheets("Data").Range("A" & i).EntireRow.Copy Destination:=wkSht.Range("A" & nextRow)
       End If
       
    Next i
Next wkSht


Application.ScreenUpdating = True
End Sub

Download file : https://www.amazon.com/clouddrive/share/awH3MxWvGa0hCPRQE98IM9flALWnzPZxCDcZPMKfevO

I don't know precisely how you envision the workbook layout. What you will find in the download file (zip) are two examples that
copy from the master sheet and paste to the appropriate tabs.

You can simply change the column headers to suit your needs and you'll have a complete project.

 

[My Aswer Is This]

Please explain more about what you want this:
Your words:
Nice Table to looks like.

Do you just want all the tasks listed in column A of the proper sheet?

Please give specific details

Like what is the sheet name of the Master sheet where you will initially entering these task.