When we're gaun up the hill o’ fortune, may we ne'er meet a frien' comin' doun! (When we are going up the hill of fortune, may we never meet a friend coming down!)
Don't cry because it's over...Smile because it happened.l
Thanks for your reply Hans. Unfortunately it does not do what I require. Perhaps I should have been a bit more explicit.
I have a list of 100 items. What I want to do is break it down into 20 groups of 5 with the first having items 1 to 5, the second having items 6 to 10, the third having items 11 to 15 and so on.
George
When we're gaun up the hill o’ fortune, may we ne'er meet a frien' comin' doun! (When we are going up the hill of fortune, may we never meet a friend coming down!)
Don't cry because it's over...Smile because it happened.l
The first group is OK but the second group includes 4 of the first plus one other, the third group includes 4 of the second group plus one other and so on it goes and only 24 of the 100 items have been used.
You do not have the required permissions to view the files attached to this post.
George
When we're gaun up the hill o’ fortune, may we ne'er meet a frien' comin' doun! (When we are going up the hill of fortune, may we never meet a friend coming down!)
Don't cry because it's over...Smile because it happened.l
Sub MOVIE_TITLES()
'=================================================
' LIST MOVIES UNDER APPROPRIATE WEEKS
'=================================================
Dim week As Long
Dim i As Long
For week = 1 To 20
For i = 0 To 4
Cells(i + 3, week + 2) = Cells(5 * week + i - 4, 1)
Next i
Next week
End Sub
When we're gaun up the hill o’ fortune, may we ne'er meet a frien' comin' doun! (When we are going up the hill of fortune, may we never meet a friend coming down!)
Don't cry because it's over...Smile because it happened.l