Need a macro to split 5020 codes into groups by 220 each

[Arty_1]

Hi!

There are 5020 codes with supplier names in the worksheet.

I'd like to split the codes in the calendar - so that every day includes 220 codes.

See the file with more detailed info. attached.MACROS_SPLIT_CODES.xls

[JOHN H. DAVIS]

Maybe:

Please Login or Register  to view this content.

[Arty_1]

John you're genius! It works great!

Additional question - which number I have to change to set everyday's limit from 220 to e.g. 350?

As far as I understand it's (bold):

Sub Split_by_Artis()
Dim i As Long
Dim x As Long
Dim y As Long
x = 7
Columns(2).Copy
Columns(1).Insert
Columns(2).Copy
Columns(2).Insert
For i = Range("A" & Rows.Count).End(3).Row To 3 Step -1
If Range("A" & i) = Range("A" & i).Offset(1) Then Range("A" & i).Offset(1).ClearContents
Next i
y = Range("B" & Rows.Count).End(3).Row / 350Do Until y = 0
Range("A2:B221").Copy Cells(3, x)
If Cells(3, x) = "" Then Cells(3, x) = Cells(Rows.Count, x - 2).End(3).Value
Range("A2:B351").Delete xlUp
x = x + 2
y = y - 1
Loop
Columns("A:B").Delete
End Sub

[JOHN H. DAVIS]

You're welcome. Glad to help out and thanks for the feedback. You figured your question out. Please comply with Forum Rules about posting code. Review for Rule 3.

http://www.excelforum.com/forum-rule...rum-rules.html