Ranges

[Guest]

All -

I have two columns; Range1 and Range2 respectively. If for example, Range1
has a value of 20 and Range2 has a value of 44 - I need to take all the
values between those two and put them into a new worksheet so it will have
one column that has 20, 21, 22, 23, 24 etc. as the records. It then needs to
go to the next row in Sheet 1 - and look at the Range1 and Range2 and
transpose all those values in the new worksheet.

Can anybody advise?

Thanks!

 

[Tom Ogilvy]

set sh = Activesheet
Application.DisplayAlerts = False
On Error Resume Next
Worksheets("Output").Delete
On Error goto 0
Application.DisplayAlerts = True
Worksheets.Add
Activesheet.Name = "Output"
set sh1 = Worksheets("Output")
sh.Activate
lOff = Range2.Column - Range1.Column
rw = 1
for each cell in Range1
lStart = cell.Value
lStop = cell.offset(0,lOff).Value
for i = lStart to lStop
sh1.cells(rw,1).Value = i
rw = rw + 1
Next
Next