Uller
04-13-2009, 02:10 PM
Hey guys,
I am trying to write a macro that will autofilter the different user's in this workbook by using the header "username" and copy/paste that selection into a blank worksheet in the same workbook. My problem is that the users I am autofiltering will vary statement to statement, and right now I am essentially hardcoding the current user names into my code as you can see below. My goal is to have every user listed in a separate worksheet without hardcoding, which I know will cause errors in the future. I am confused on how to procede from here...
Sub Adshare2()
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:="313citymoe"
Selection.CurrentRegion.Select
Selection.Copy
Sheets(3).Select
ActiveSheet.Paste
Sheets(3).Name = Range("D2").Value
Sheets(2).Activate
AutoFilterMode = False
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:="AnnayaThePoet"
Selection.CurrentRegion.Select
Selection.Copy
Sheets(4).Select
ActiveSheet.Paste
Sheets(4).Name = Sheets(4).Range("D2").Value
Sheets(2).Activate
AutoFilterMode = False
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:="bdubbtv"
Selection.CurrentRegion.Select
Selection.Copy
Sheets(5).Select
ActiveSheet.Paste
Sheets(5).Name = Sheets(5).Range("D2").Value
Sheets(2).Activate
AutoFilterMode = False
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:="bloktv"
Selection.CurrentRegion.Select
Selection.Copy
Sheets(6).Select
ActiveSheet.Paste
Sheets(6).Name = Sheets(6).Range("D2").Value
Sheets(2).Activate
AutoFilterMode = False
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:="bobbywashington"
Selection.CurrentRegion.Select
Selection.Copy
Sheets(7).Select
ActiveSheet.Paste
Sheets(7).Name = Sheets(7).Range("D2").Value
Sheets(2).Activate
AutoFilterMode = False
End Sub
I have attached a sample statement. Any help would be greatly appreciated!
Regards,
Uller
I am trying to write a macro that will autofilter the different user's in this workbook by using the header "username" and copy/paste that selection into a blank worksheet in the same workbook. My problem is that the users I am autofiltering will vary statement to statement, and right now I am essentially hardcoding the current user names into my code as you can see below. My goal is to have every user listed in a separate worksheet without hardcoding, which I know will cause errors in the future. I am confused on how to procede from here...
Sub Adshare2()
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:="313citymoe"
Selection.CurrentRegion.Select
Selection.Copy
Sheets(3).Select
ActiveSheet.Paste
Sheets(3).Name = Range("D2").Value
Sheets(2).Activate
AutoFilterMode = False
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:="AnnayaThePoet"
Selection.CurrentRegion.Select
Selection.Copy
Sheets(4).Select
ActiveSheet.Paste
Sheets(4).Name = Sheets(4).Range("D2").Value
Sheets(2).Activate
AutoFilterMode = False
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:="bdubbtv"
Selection.CurrentRegion.Select
Selection.Copy
Sheets(5).Select
ActiveSheet.Paste
Sheets(5).Name = Sheets(5).Range("D2").Value
Sheets(2).Activate
AutoFilterMode = False
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:="bloktv"
Selection.CurrentRegion.Select
Selection.Copy
Sheets(6).Select
ActiveSheet.Paste
Sheets(6).Name = Sheets(6).Range("D2").Value
Sheets(2).Activate
AutoFilterMode = False
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:="bobbywashington"
Selection.CurrentRegion.Select
Selection.Copy
Sheets(7).Select
ActiveSheet.Paste
Sheets(7).Name = Sheets(7).Range("D2").Value
Sheets(2).Activate
AutoFilterMode = False
End Sub
I have attached a sample statement. Any help would be greatly appreciated!
Regards,
Uller