Organize data into sheets by Date

Greetings!
I've got some timesheet data:
9/7/2010 661 minutes 11.02 hours 11.02 hours
9/7/2010 661 minutes 11.02 hours 11.02 hours
9/7/2010 661 minutes 11.02 hours 11.02 hours
9/8/2010 475 minutes 7.92 hours 7.92 hours
9/9/2010 445 minutes 7.42 hours 7.42 hours
9/9/2010 445 minutes 7.42 hours 7.42 hours
9/10/2010 575 minutes 9.58 hours 9.58 hours
9/10/2010 575 minutes 9.58 hours 9.58 hours
9/10/2010 575 minutes 9.58 hours 9.58 hours
9/13/2010 530 minutes 8.83 hours 8.83 hours
9/13/2010 530 minutes 8.83 hours 8.83 hours
9/13/2010 530 minutes 8.83 hours 8.83 hours
9/14/2010 145 minutes 2.42 hours 2.42 hours
9/14/2010 145 minutes 2.42 hours 2.42 hours
9/14/2010 145 minutes 2.42 hours 2.42 hours
9/14/2010 145 minutes 2.42 hours 2.42 hours
9/14/2010 145 minutes 2.42 hours 2.42 hours

And I'd like to create a macro that splits the whole rows of data into separate sheets.
So there's a sheet '9/7/2010' with those 3 rows in it. Then another sheet '9/8/2010' with that one row. Then another sheet '9/9/2010' with those two rows of data. And so on for all the rows of data in the first worksheet.

How can I put that into a macro?

Hello & Welcome to the Board,

It's possible to split this data into multiple sheets; however, by using 9/7/2010 this seems not so possible. You will have to figure out something other than this date format. (FAIK)

Some characters you can't use in a worksheet name. Characters not allowed:
: \ / ? * [ or ]
Colon, back slash, forward slash, question mark, asterisk, left and right square brackets.

You could format the dates into numbers which for example 9/7/2010 would be 40428 and then rename the sheet to 7-Sep-2010.

When you run this macro it will ask you what column you want to split the data by.

You could also look into Excel Explosion as an option. http://www.datapigtechnologies.com/freeware.htm

Please Login or Register  to view this content.

Awesome! that worked so slick, so glad to have some functioning code to work with.

It took a while but I recognize the problem you state and I think the solution you mentioned would be a great alternative. I've done some experimenting and see that ws.name = .Cells(iStart, iCol).Value is that place that needs some modification to make this work but I'm not sure what needs to be changed there. Can you provide some more direction? Thanks!