Sorting rows into other sheets by date value

[Belindakzn]

Hi all,

I need to make a excell spreadsheet for my company except I have no idea how to do this and if it is possible.

I need to enter in data into rows on Sheet 1. It will have quite a few headings and a picture next to the entered data. the last column will be a month that the job will be done eg: 05 or 06.

I would like to know is it possible for me to enter in the date in my last column of sheet 1 and excel automatically sends that entire row only onto anther sheet named 05 for jobs done in May. So on sheet 1 I will have all the quoted work listed as it comes in and excel sorts that to Sheets for the appropriate month?

I hope this makes sense. I can upload an example of this if it will help.

Thanking you in advance!

 

[Shahzadt]

Hi Benlindakzn - please upload an example file for this.

 

[Belindakzn]

I know this is going to sound strange, but how do I upload/attached an example of my spreadsheet with out having to retype it?

Sorry guys

 

[Shahzadt]

here is the link the faq you can use the html tag to attach the file. im not sure how that works. haven't posted a file here before

 

[Belindakzn]

DESIGN #	CUSTOMER STYLE #	PRINT NAME	COLOURS	SAMPLE MONTH
GL0288	J8288	MINNIE MOUSE	12	06
KI7445	W14-0188	MICKEY ROCKS	14	05

<tbody>
</tbody>

This is condensed example of what I am trying to do, there 3 more columns in there. I need to move and entire row onto another sheet dependent on the sample month. Eg: 06 is June so I need to move the whole row into another sheet named June. 05 will be May and I need to do the same, move the entire row into May Sheet. I need this to automatically do it as I enter in the data. Is there a sort of code I can use to move all rows dependent on the date? Sorry I hope i have not made it too confusing.

 

[Belindakzn]

I have managed to get the code for this from another website. The only problem I am having is that every time I run the Macro it inserts the same thing again. How can I just get it to update it not copy the same entries again.

Sorry I am very new to this and actually have no idea what I am doing but its working. Here is the code I have used.

Sub copyPasteData()
Dim strSourceSheet As String
Dim strDestinationSheet As String
Dim lastRow As Long

strSourceSheet = "Register"

Sheets(strSourceSheet).Visible = True
Sheets(strSourceSheet).Select

Range("C2").Select
Do While ActiveCell.Value <> ""
strDestinationSheet = ActiveCell.Value
ActiveCell.Offset(0, -2).Resize(1, ActiveCell.CurrentRegion.Columns.Count).Select
Selection.Copy
Sheets(strDestinationSheet).Visible = True
Sheets(strDestinationSheet).Select
lastRow = LastRowInOneColumn("A")
Cells(lastRow + 1, 1).Select
Selection.PasteSpecial xlPasteValues
Application.CutCopyMode = False
Sheets(strSourceSheet).Select
ActiveCell.Offset(0, 2).Select
ActiveCell.Offset(1, 0).Select
Loop
End Sub




Public Function LastRowInOneColumn(col)
'Find the last used row in a Column: column A in this example
'http://www.rondebruin.nl/last.htm
Dim lastRow As Long
With ActiveSheet
lastRow = .Cells(.Rows.Count, col).End(xlUp).Row
End With
LastRowInOneColumn = lastRow
End Function

 

[Belindakzn]

Anyone know how I can get this sorted out?