Split a list in to separate tabs

Hi all,

I am looking for a method of quickly taking a list with multiple possible entries in a column (say column A) and copying all identical entries to a new tab; naming the new tab whatever the entry initially was.

That is, if column A has entries including 'bus' (12 times), 'car' (19 times) and 'Jumbo Jet' (113 times), then I'm looking to quickly create new tabs called 'bus', 'car' and 'Jumbo Jet' and within these have only the rows that had those entries in column A.

I have attached two sample sheets to give a better idea. Take sample 1 as being my initial data and sample 2 as how the result might look.

Thanks in advance for any help/response.

Add the following VBA and run it

Please Login or Register  to view this content.

Actually, heres a more elegant solution...

Please Login or Register  to view this content.

"Admin & IT" shouldnt cause a problem however if youve got the likes of Quotation Marks etc then they could cause problems.

What exactly is the error message given, and if there is a Debug button available, what line is highlighted when you press it?

Also which of the two solutions are you using?

The problem comes with names longer than allowed and theres a reserved word (History) in there.

Please Login or Register  to view this content.

The amended code above will create the name based on the first 30 chars and append a _ to it to get round the reserved word issue. Theres one final possibility, if you have courses named more than 30 chars long and they are essentially the same but with say Level1, Level2 etc then you're still going to have problems with these.

You havent included the function which was part of the original code. You'll need to paste the following underneath the other Sub

Please Login or Register  to view this content.