Range Selection shouldn't be this difficult!

  • Thread starter Thread starter SFWhite
  • Start date Start date
S

SFWhite

I want to simply select this cell and the next 25 cells for a quick
fill down.

Range("A2:A25").Select
Selection.FillDown

The above works fine.

BUT -

I want to do this from any cell I am sitting on: (For example)

Range("RC[1]:R[24]C[1]").Select
Selection.FillDown

I cannot make this work with any combination of anything I have tried
or found on this ng.

Anyone have a suggestion?

Thanks in advance.
 
SF,

ActiveCell.Range("A1:A25").Select
Selection.FillDown

or just

ActiveCell.Range("A1:A25").FillDown

HTH,
Bernie
MS Excel MVP
 
SFWhite,

Try this:

Sub TestMe()
Range(Range(ActiveCell.Address), _
Range(ActiveCell.Address).Offset(23, 0)).FillDown
End Sub

John
 
SFWhite said:
I want to do this from any cell I am sitting on: (For example)

Range("RC[1]:R[24]C[1]").Select
Selection.FillDown

I cannot make this work with any combination of anything I have tried
or found on this ng.

Anyone have a suggestion?
Click to expand...

Sub Fill25CellsDown()
Selection.Resize(25, 1).Select
Selection.FillDown
End Sub

Regards,
 
Thanks to everyone for the quick reply

Both "Offset" and "Resize" solutions worked great.

SF.
 
Back
Top