Copy row base on date, paste to another sheet by month

[jimayers]

I am trying to copy a row of information based on a date in column "H" in sheet 1, then paste/insert that row into the month specific section in sheet 2. Sheet 2 has 12 sections for the 12 months. So on sheet 2, range("H1: H8") is a header, with a big "January" in "H4" where every row below is pasted data from sheet 1 for January. AND so on!

I loop using
For y = 5 to Lastrow
....For counterx = 1 to 12
I am attempting to loop 12 times in every row of data in sheet 1 checking for one of the 12 months, then copying the row into sheet 2
I have been trying to use month() and /or monthname() with no success.

Anyhelp would be appreciated.
Thanks - Jim

 

[JLGWhiz]

Here is an example of how I would do it.

Dim c As Range, i As Long
For i = 1 To 12
    With Sheets("Sheet1")
        For Each c In .Range("H5", .Cells(Rows.Count, 8).End(xlUp))
            If Month(c.Value) = i Then
                Select Case i
                    Case 1
                        'copy paste to January
                    Case 2
                        'copy paste to February
                    'on through Case 12
                End Select
            End If
        Next
    End With
Next

 

[jimayers]

Thank you...that worked. Although the code was a lot longer than excpected as I needed to write the copy/paste code for each of the 12 cases.
But I'm up and running now - yahoo!