I already have a contact list made out that has 3 rows and I print it out
when I'm done adding/deleting. Everytime I add a new contact it moves the
list down off the page and I have to manually move each contact to the top of
each list. I want it to automatically move it to the top of the next list.

I think you would have better luck using a "Word" document. Set up the page
with two columns, then when you insert new contact information "Word" will
automatically wrap the data to the next column and to the next page.

Hope this helps

Tom

"Kenny" wrote:

I already have a contact list made out that has 3 rows and I print it out
when I'm done adding/deleting. Everytime I add a new contact it moves the
list down off the page and I have to manually move each contact to the top of
each list. I want it to automatically move it to the top of the next list.

Looks like 2 columns per list with 2 lists side by each.

Is that correct?

And you want to maintain the two lists sorted/snaked as you add/delete a
contact?

i.e. 1-60 in columns A & B 61-120 in columns C & D

I would just have one long list on one sheet which you add to or delete
from.

Sort that one list on the Name column.

Then use code to move that one list into two lists on another sheet when you
want to print it.

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

iSource = 2
iTarget = 2
ActiveSheet.Copy Befo=ActiveSheet
With ActiveSheet 'newly copied sheet
.Range("C1:D1").Value = .Range("A1:B1").Value
End With
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 + 6

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

End Sub

Or you can have a look at David McRitchie's SnakeCols site outine which
gives a few more methods and routines.

http://www.mvps.org/dmcritchie/excel/snakecol.htm


Gord



On Fri, 15 Aug 2008 13:22:09 -0700, Kenny
wrote:

EMPLOYEE NAME PHONE # EMPLOYEE NAME PHONE #
Adams, Patricia F. (000) 000-9527 Davis, Tommy E. (000) 000-0905
Ainsworth, William M. (000) 000-3800 Delgado, Claudio (000) 000-1413
Alldredge, Don L. (000) 000-2771 Delatorre, Gerardo G. (000) 000-8901

Each list is longer with 60 in each column

"Gord Dibben" wrote:

Without some type of code you probably can't do it "automatically"

Where would the next list be situated in reference to the 3 rows?

Post a sample of what you are trying to describe.

Not a file, just a dozen lines of data and a description.


Gord Dibben MS Excel MVP


On Fri, 15 Aug 2008 11:36:08 -0700, Kenny
wrote:

I already have a contact list made out that has 3 rows and I print it out
when I'm done adding/deleting. Everytime I add a new contact it moves the
list down off the page and I have to manually move each contact to the top of
each list. I want it to automatically move it to the top of the next list.