EXCEL VBA use of range( 1

[ryno525]

Is there an easier way to write this:

dim lastcell as range
Set lastcell = ActiveCell.Offset(-1, 7) 'happens at somepoint in the program

Range("b4:" & lastcell.Address(RowAbsolute:=False, ColumnAbsolute:=False)).Select



how about this:

Range(ActiveCell.Address(RowAbsolute:=False, ColumnAbsolute:=False) & ":" & ActiveCell.Offset(0, 5).Address(RowAbsolute:=False, ColumnAbsolute:=False)).Select

 

[SkipVought]

Hi,

    Set lastcell = ActiveCell.Offset(-1, 7)  'happens at somepoint in the program

    Range([b4], lastcell).Select

    Range(ActiveCell, ActiveCell.Offset(0, 5)).Select

Skip,
[sub]
[red]Be Advised![/red] The Vinyards of Texas have produced a wine with diuretic dimishment and urethric relief...
Pinot More![/sub]

 

[Zathras]

The three code snippets above all produce different results.

It's not clear what you need to have happen, but here is a slightly simpler way to do the same thing as your first code snippet

Range("B4", ActiveCell.Offset(-1, 7)).Select

 

[Zathras]

Or if there is some other code between the two lines shown, then something like this:

:
:
Set RememberMe = ActiveCell
:
:
Range("B4", RememberMe.Offset(-1, 7)).Select
:
:

 

[Zathras]

Or, since you already have

Set lastcell = ActiveCell.Offset(-1, 7)

Then you could just do this:

:
:
Range("B4", lastcell).Select