select uneven range
thanks Rick,
I've made an error in my question. I want to set a range variable and I
realize I need the range B2:C2 to last contiguous cell in column C, not just
B2:B3.
I've tried this code:
Set rngDSUMCriteria = Range("B2"), Range("C2:" & Range("C2").End(xlDown))
but it has an error and I'm not sure why
"Rick Rothstein" wrote:
Try this statement...
Union(Range("B2:B3"), Range("C2:" & Range("C2").End(xlDown))).Select
Usually you don't have to select the cells in order to do things to them.
Perhaps this previous posting of mine (a response to another person using
Select/Selection type constructions) will be of some help to you in your
future programming...
Whenever you see code constructed like this...
Range("A1").Select
Selection.<whatever
you can almost always do this instead...
Range("A1").<whatever
In your particular case, you have this...
Range("C2:C8193").Select 'select cells to export
For Each r In Selection.Rows
which, using the above concept, can be reduced to this...
For Each r In Range("C2:C8193").Rows
Notice, all I have done is replace Selection with the range you Select(ed)
in the previous statement and eliminate the process of doing any
Select(ion)s. Stated another way, the Selection produced from
Range(...).Select is a range and, of course, Range(...) is a range... and,
in fact, they are the same range, so it doesn't matter which one you use.
The added benefit of not selecting ranges first is your active cell does not
change.
--
Rick (MVP - Excel)
"Jake" wrote in message
...
I would like to select a range from cells B2:B3 and from C2 to the last
contiguous cell below C2. I've tried currentregion and a few other pieces
of
code with now success.
Thanks,
Jake
|