Do Until and Selecting the Range?

[66tigger40]

Hi

I have a spreadsheet that I have the following code running:

Do Until IsEmpty(ActiveCell)

ActiveCell.Offset(1, 0).Select

Loop
End Sub

Which works fine but I need it to select all the cells until it reaches an Empty cell - I'm sure it's really simple but i can't figure it out today

Thanks in advance

N

 

[AnotherHiggins]

It's best to avoid activating each cell. That slows down your code.

But to answer your question, to select all cells until the first empty one, try this:

range(activecell, activecell.end(xldown)).select

[tt]_____
[blue]-John[/blue][/tt]
[tab][red]The plural of anecdote is not data[/red]

Help us help you. Please read FAQ181-2886 before posting.

 

[66tigger40]

Hi

Thanks for the quick response - just one more quick question - how would i now copy this information to another sheet or workbook?

Thanks in advance

N

 

[PHV]

Have a look at the Copy method of the Range object.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[66tigger40]

Thanks - just having a "blank moment"