spreadsheet colum combination

[Old Bob]

I have an alphabetical list of songs in two colums-one for title and one for
artist. My list now is way too long (400 pages). Is there an easy way to
make this list in 4 colums and still keep it alphabetical?

 

[sajay]

You mean with the same two columns split into 4 or want to add another two
details column?
Sort is simply the best option you can use Automatic Filter option from Data
Menu.

and if you plan to take prints
go to nearly the half of the excel sheet
cut it from there and paste next to data in top

 

[Old Bob]

Thanks, I wanted to now make 4 columns but keep all the A's, B's ect together.

 

[Spiky]

Thanks, I wanted to now make 4 columns but keep all the A's, B's ect together.

How many songs do you add in a week? You could switch to Word. It
allows for multiple print columns, like a newspaper. And can still
Sort.

 

[Old Bob]

I mean that currently I have a column for song and one for artist on each
page, I would like to add a third column for song and a fourth for artist so
what was once on two pages can go on one page...

 

[Spiky]

I mean that currently I have a column for song and one for artist on each

page, I would like to add a third column for song and a fourth for artist so
what was once on two pages can go on one page...

Yep, that's what I assumed. Excel doesn't do Sort (not easily, I
presume someone could write VBA to do it) when the data wraps to a 2nd
set of columns. Word does, hence my suggestion.

You could also try changing printing prefs to print 2 pages on one in
Print Options. But I think this will make it too small to read.

 

[Gord Dibben]

Try this macro after sorting.

Sub Move_Sets()
Dim iSource As Long
Dim iTarget As Long

iSource = 1
iTarget = 1

Do
Cells(iSource, "A").Resize(60, 2).Cut _
Destination:=Cells(iTarget, "A")
Cells(iSource + 60, "A").Resize(60, 2).Cut _
Destination:=Cells(iTarget, "C")

iSource = iSource + 120
iTarget = iTarget + 60

Loop Until IsEmpty(Cells(iSource, "A").Value)

End Sub


Gord Dibben MS Excel MVP

 

[Old Bob]

WOW..thanks but I do not know anything about macros and really do not know
where to put such and instruction but I will poke around and see what I can
do with your suggestion

 

[Old Bob]

Gord,
Please be patient..I have figured out how to just copy and paste your macro
and put it in my list of macros, adjusted my security, openend telling it to
allow macro. when I try to run I get this message "Sub or Function is not
defined"..any ideas?

 

[Old Bob]

It also says "Compile Error" before the "Sub or function not defined

 

[Gord Dibben]

Is your "list of macros" in Personal.xls?

I would paste the macro into a general module in the workbook you are running it
on.

With your workbook open...........

Alt + F11 to open VBEditor. CTRL + r to open Project Explorer.

Select your workbook/project and right-click>insert module.

Paste the macro into that module.

Alt + F11 to return to the Excel window.

Select the sheet to run the macro on.

Does it run from Tools>Macro>Macros?


Gord