Filter, CopyVisible, Paste into Sheet 2

[boxboy30]

I would like to filter my month. Copy all the information from that month in to a sheet....so by the end of the job I have 13 sheets in one workbook. Any Ideas?

 

[Smitty]

Sure, record a macro for the first sheet, then post back what you get. Provided the sheets are formatted the same, then someone can easily add some code to include each worksheet and make the pasting sequential.

 

[boxboy30]

Sub Parse_By_Month()
'
' Parse_By_Month Macro
' Parses the information out by Month then pastes that information into it's own sheet, while keeping the main information.
Columns("D:D").Select
ActiveWorkbook.Worksheets(1).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(1).Sort.SortFields.Add Key:=Range("D1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Project Query 2011").Sort
.SetRange Range("A1:G44285")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Selection.AutoFilter
ActiveSheet.Range("$D$1:$D$44285").AutoFilter Field:=1, Criteria1:=Array("="), Operator:=xlFilterValues, Criteria2:=Array(1, "1/29/2011")
Range("A1:G3594").Select 'needs to refer to last row
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
Sheets("Sheet1").Select
Sheets("Sheet1").Name = "January Projects"
End Sub


now how do i loop this