Create Range from Range

[dksaluki]

Excel VBA:
Let's say I have a range object set to be from B2:F6, and i need to
make another range object to be the last row of my original range.
(New range to be B6:F6) How would i go about doing this? I tried
the .Resize option, but that only works from the top left cell of a
range.

DK

 

[p45cal]

VBA Code:
--------------------


Set xxx = Range("B2:F6")
Set yyy = xxx.Resize(1).Offset(xxx.Rows.Count - 1)
yyy.Select

 

[Dave Peterson]

Another method:

Dim Rng1 as range
Dim Rng2 as range

set rng1 = activesheet.range("b2:F6")
set rng2 = rng1.rows(rng1.rows.count)

or
with rng1
set rng2 = .rows(.rows.count)
end with

 

[dksaluki]

man, it seems so easy when you see it! thank guys!

DK