Macro needed - Rows with matching x criteria in a column need to be copied onto a sheet labeled x

[sniperdoc]

I have limited experience with macros, I know how to execute them... that's about it.

I have a large csv file that has data arranged like this (with over 2000 rows):

group	name	type	active	title	dept
one	john smith	user	yes	derp	derp2
one	jane doe	user	yes	derpity	derpderp
one	jimmy johns	user	yes	derperderp	derp2
two	john smith	user	yes	derp	derp2
two	hildegard	user	yes	derpity	derpderp
three	john smith	user	yes	derp	derp2

<tbody>
</tbody>

I am trying to find an easy way to get sheets created for each group, and then copy each user matching that group to the new sheet.

I found a macro to create the sheets for each group, but I have not found a way to copy rows via matching criteria to those sheets... at least not in one click. I can probably find something that I can run for each group, but I have almost 100 groups... so, I'd like something that can copy all the data with one run of the macro...

Any assistance is appreciated.

 

[Michael M]

Soooo, what is the criteria we have to match ???

 

[sniperdoc]

Soooo, what is the criteria we have to match ???

Hey Michael, sorry about that. It should be the Groups that should be the criteria.

Essentially every record that lists group one, should be on placed a new sheet labeled "group one", group two onto "group two" sheet, such and so forth.

But, you may want to hold off. I may have found something to help me do what I need to do without needing the extra sheets.

 

[Michael M]

Maybe something like this..
If you post the sheet creation code, I'll merge it into this code for you

Sub MM1()
Dim r As Long, lr1 As Long, lr2 As Long
Application.ScreenUpdating = False
lr = Sheets("Master").Cells(Rows.Count, "B").End(xlUp).Row 'Chnage Master sheet to main sheet name
For r = 2 To lr
    With Sheets(Cells(r, "A").Value)
        If .Range("A1") = "" Then
            lr2 = 1
        Else
            lr2 = .Cells(Rows.Count, "A").End(xlUp).Row + 1
        End If
        Rows(r).Copy .Cells(lr2, "A")
    End With
Next r
Application.ScreenUpdating = True
End Sub