Change a specific code to generic in VB macro

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Sue - 23 Apr 2008 18:06 GMT

I have the following:

Selection.AutoFill Destination:=Range("BE2:BE567"), Type:=xlFillDefault
Range("BE2:BE567").Select

I would like to change the code to include all possible used cells to fill.
How do I do this?

Signature

Sue

Reply to this Message

gt - 23 Apr 2008 18:19 GMT

Hi Sue:

Here's one approach.

Use a line of code like this to find the last used row:

LastRow = Range("B65536").End(xlUp).row OR
LastRow = ActiveCell.SpecialCells(xlLastCell).row

Then modify your code to this:

Selection.AutoFill Destination:=Range("BE2:BE" & Lastrow), Type:=xlFillDefault
Range("BE2:BE" & Lastrow).Select

Give that a whirl.

cheers,
gt

> I have the following:
>
[quoted text clipped - 3 lines]
> I would like to change the code to include all possible used cells to fill.
> How do I do this?

Reply to this Message

gt - 23 Apr 2008 18:56 GMT

ooops - one slight change :

> LastRow = Range("BE65536").End(xlUp).row OR
> LastRow = ActiveCell.SpecialCells(xlLastCell).row
[quoted text clipped - 3 lines]
> Selection.AutoFill Destination:=Range("BE2:BE" & Lastrow), Type:=xlFillDefault
> Range("BE2:BE" & Lastrow).Select

> Hi Sue:
>
[quoted text clipped - 22 lines]
> > I would like to change the code to include all possible used cells to fill.
> > How do I do this?

Reply to this Message