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?
--
Old Bob

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" wrote in message
...
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?
--
Old Bob

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


"sajay" wrote:

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" wrote in message
...
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?
--
Old Bob

On Jul 7, 11:00 am, Old Bob wrote:
Thanks, I wanted to now make 4 columns but keep all the A's, B's ect together.
--
Old Bob

"sajay" wrote:
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" wrote in message
...
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?
--
Old Bob
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.

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...
--
Old Bob


"Spiky" wrote:

On Jul 7, 11:00 am, Old Bob wrote:
Thanks, I wanted to now make 4 columns but keep all the A's, B's ect together.
--
Old Bob

"sajay" wrote:
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" wrote in message
...
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?
--
Old Bob
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.

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.

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

On Tue, 8 Jul 2008 07:03:24 -0700 (PDT), Spiky wrote:

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.

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 Dibben" wrote:

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

On Tue, 8 Jul 2008 07:03:24 -0700 (PDT), Spiky wrote:

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,
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


"Gord Dibben" wrote:

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

On Tue, 8 Jul 2008 07:03:24 -0700 (PDT), Spiky wrote:

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.

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


"Gord Dibben" wrote:

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

On Tue, 8 Jul 2008 07:03:24 -0700 (PDT), Spiky wrote:

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.

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-clickinsert 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 ToolsMacroMacros?


Gord


On Tue, 8 Jul 2008 14:11:11 -0700, Old Bob
wrote:

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?