Data Continue to next column?

D

Drew

I have over 12,000 entries that are tied to Columns A & B, the rows directly
corrospond to each other. How can I have Columns A & B disply the first 50
entires and then C & D disply the next 50 entries for the first page and the
repeat the process for the next pages.

FOR EXAMPLE
A B C D
1 2 4 8
2 4 5 10
3 6 6 12

Page two should start with 51st enteries in Colums A & B and 101 in C & D???

Thank You
[email protected]
 
G

Gord Dibben

Drew

Not quite sure from your description but.......on a copy of the worksheet try
this macro.

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

iSource = 1
iTarget = 1

Do
Cells(iSource, "A").Resize(50, 2).Cut _
Destination:=Cells(iTarget, "A")
Cells(iSource + 50, "A").Resize(50, 2).Cut _
Destination:=Cells(iTarget, "C")
iSource = iSource + 100
iTarget = iTarget + 51
Loop Until IsEmpty(Cells(iSource, "A"))

End Sub


Gord Dibben Excel MVP
 
Top