VBA Help

[nanderson]

I have a sheet that has a list of employees and devices assigned to those employees. I would like to put each employee and their devices on a separate tab in an excel workbook. So at each change in employee name, copy that data over to a tab and then name that tab by that employee's name.

I have a short timeline to get this done so any information would be helpful.

 

[ranman256]

something like this to get you started.
alter the employee name column to yours.
run: ParseEmp2Sheets

Sub ParseEmp2Sheets()
Dim wsSrc As Worksheet
Dim vEmp
Dim r As Long

Set wsSrc = ActiveSheet
Range("A2").Select
While ActiveCell.Value <> ""
vEmp = ActiveCell.Value
r = ActiveCell.Row
Rows(r & ":" & r).Copy

makeEmp vEmp
wsSrc.Activate 'back to source

ActiveCell.Offset(1, 0).Select 'next row
Wend

Set wsSrc = Nothing
End Sub

Private Sub makeEmp(ByVal pvName)
On Error GoTo errMake
Sheets(pvName).Activate
ActiveCell.Offset(1, 0).Select 'next row
ActiveSheet.Paste
Application.CutCopyMode = False
Exit Sub
errMake:
Sheets.Add
ActiveSheet.Name = pvName
Resume Next
End Sub