Importing rows from one sheet to another

[braund]

Is is possible to do the following:

I have one worksheet with column A (rows 1 - 31) listing dates in a month (i.e. Monday, January 3, 2005). Each date has 3 other columns listing other information.

I have 7 other worksheets labeled Monday through Sunday.

What I would to do is grab all rows for a particular day and place them into the corresponding "day" worksheet.

In essence, I would like to grab all Monday rows from the original worksheet and bring them over to the Monday worksheet.

Is this possible?? I am desperate to get this to work!

Thanks in advance!

 

[Bruno_x]

Hi Braund,
Welcome to the board

A quick way could be :
In an extra column you enter the formula on row 1 :
= weekday(a1)

and copy this formula down to row 31
Now you can sort your list on this column, copy the day(s) you need and paste them into corresponding "day"-sheet

 

[Bruno_x]

Or if you prefer a macro to do this automatically :

Sub SortWeekDays()
Dim MyRange As Range
Set MyRange = Sheets(1).Range("A1:A31")
For Each c In MyRange
    Select Case WorksheetFunction.WeekDay(c)
    Case 1   'sunday
        Range(c, Cells(c.Row, 3)).Copy _
        Worksheets("sunday").Range("A65536").End(xlUp).Offset(1, 0)
    Case 2   'monday
        Range(c, Cells(c.Row, 3)).Copy _
        Worksheets("monday").Range("A65536").End(xlUp).Offset(1, 0)
    Case 3   'tuesday
        Range(c, Cells(c.Row, 3)).Copy _
        Worksheets("tuesday").Range("A65536").End(xlUp).Offset(1, 0)
    Case 4   'wednesday
        Range(c, Cells(c.Row, 3)).Copy _
        Worksheets("wednesday").Range("A65536").End(xlUp).Offset(1, 0)
    Case 5   'thursday
        Range(c, Cells(c.Row, 3)).Copy _
        Worksheets("thursday").Range("A65536").End(xlUp).Offset(1, 0)
    Case 6   'friday
        Range(c, Cells(c.Row, 3)).Copy _
        Worksheets("friday").Range("A65536").End(xlUp).Offset(1, 0)
    Case 7   'saturday
        Range(c, Cells(c.Row, 3)).Copy _
        Worksheets("saturday").Range("A65536").End(xlUp).Offset(1, 0)
    End Select
Next
End Sub