Alter this code to make it loop through rows and columns

[oliviar]

Hello my friends!
I have created this code which turns a range expressed between col A and B - into a list in column F.
So is the start of the range is 10 in A1, and the end of the range is 15 in B1, then f1 is 10, f2 is 11, f3 is 12, f4 is 13, etc.

However my code is static, and will only make the column in F and will only look at the numbers in A1 and B1. But I have more ranges to split up, in A2&B2 and A3&B3, and so on.

How can my code loop through all the ranges expressed between Col A and B on rows 2 and below, and put them into columns after F until exhausted?

Sub dotest()
Range("f1").Select

Range("f1") = Range("b1")
  ActiveCell.Offset(1, 0).Select
If Range("b1") > Range("a1") Then
Do
        ActiveCell.Value = ActiveCell.Offset(-1, 0).Value - 1
        ActiveCell.Offset(1, 0).Select
    Loop Until ActiveCell.Offset(-1, 0) - Range("a1").Value = 0
    End If
End Sub

 

[diddi]

ok i see what you are doing now.

 

[diddi]

Sub MakeList()
    currentrow = 1
    For Row = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        For row2 = Cells(Row, 1) To Cells(Row, 2)
            Cells(currentrow, 6) = row2
            currentrow = currentrow + 1
        Next row2
    Next Row
End Sub

 

[oliviar]

Hey Diddi,
That was cool! (and fast) except I need each time it goes to a new row, for it to also go to the next column. Can this code do that?

 

[oliviar]

Haha!
I altered it like this:

Sub MakeList()
    currentrow = 1
    i = 6
    For Row = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        For row2 = Cells(Row, 1) To Cells(Row, 2)
            Cells(currentrow, i) = row2
            currentrow = currentrow + 1
        Next row2
        i = i + 1
    Next Row
End Sub

And you should see what it does... its creates cascading bundles of values, all the way down the sheet. Not quite right either - though I can bash it into my will by telling it to delete all empty cells. Though I'm sure there is a correct way.

 

[diddi]

so what should it do exactly

 

[oliviar]

Its putting all the ranges into one column, and I want each range to be in a new column.
The one I mangled does what I want, except it starts each new column in the row the last one ended off in. So its cascading down like a waterfall.
Ideally each column would resume at row 1.

 

[diddi]

Sub MakeList()
    Dim CurrentRow As Long, Row As Long, Row2 As Long
    CurrentRow = 1
    For Row = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        For Row2 = Cells(Row, 1) To Cells(Row, 2)
            Cells(CurrentRow, Row + 5) = Row2
            CurrentRow = CurrentRow + 1
        Next Row2
        CurrentRow = 1
    Next Row
End Sub

 

[oliviar]

Excellent, thanks
:D

 

[diddi]

no probs. is it still raining in your area