Selecting the first empty row
 

How do I select the first empty row in a worksheet?

I'd like to copy a certain range form wksheet 1 and then past that
range into the next available row in wksheet 2.

Thanks!
Weber


--
webba
------------------------------------------------------------------------
webba's Profile: http://www.excelforum.com/member.php...o&userid=26250
View this thread: http://www.excelforum.com/showthread...hreadid=395463

Selecting the first empty row
 

Hi Webba,

Try something like:

Dim srcRng As Range
Dim destRng As Range

Set srcRng = Sheets("Sheet1").Range("A10:H15")

Set destRng = Sheets("Sheet2"). _
Cells(Rows.Count, "A").End(xlUp)(2)

srcRng.Copy Destination:=destRng

---
Regards,
Norman



"webba" wrote in
message ...

How do I select the first empty row in a worksheet?

I'd like to copy a certain range form wksheet 1 and then past that
range into the next available row in wksheet 2.

Thanks!
Weber


--
webba
------------------------------------------------------------------------
webba's Profile:
http://www.excelforum.com/member.php...o&userid=26250
View this thread: http://www.excelforum.com/showthread...hreadid=395463

Selecting the first empty row
 

use Sheets("Sheet2").Range("A65536").End(xlUp) as destination will do

--
Regards
KC Cheung
The Inglewood

"Norman Jones" wrote in message
...
Hi Webba,

Try something like:

Dim srcRng As Range
Dim destRng As Range

Set srcRng = Sheets("Sheet1").Range("A10:H15")

Set destRng = Sheets("Sheet2"). _
Cells(Rows.Count, "A").End(xlUp)(2)

srcRng.Copy Destination:=destRng

---
Regards,
Norman



"webba" wrote in
message ...

How do I select the first empty row in a worksheet?

I'd like to copy a certain range form wksheet 1 and then past that
range into the next available row in wksheet 2.

Thanks!
Weber


--
webba
------------------------------------------------------------------------
webba's Profile:
http://www.excelforum.com/member.php...o&userid=26250
View this thread:
http://www.excelforum.com/showthread...hreadid=395463

Selecting the first empty row
 

Hi KC,

use Sheets("Sheet2").Range("A65536").End(xlUp) as destination will do

Two points:

(1) Your suggestion returns the last populated cell in column A and would
result in some of the OP's data being overwritten.

(2) Suggesting the hardcoded 'Range("A65536").' rather than:

Cells(Rows.Count, "A").

does not strike me as an improvement. However, unless and untlil MS increase
worksheet specifications, it is equivalent.


---
Regards,
Norman



"KC Cheung" wrote in message
...
use Sheets("Sheet2").Range("A65536").End(xlUp) as destination will do

--
Regards
KC Cheung
The Inglewood

"Norman Jones" wrote in message
...
Hi Webba,

Try something like:

Dim srcRng As Range
Dim destRng As Range

Set srcRng = Sheets("Sheet1").Range("A10:H15")

Set destRng = Sheets("Sheet2"). _
Cells(Rows.Count, "A").End(xlUp)(2)

srcRng.Copy Destination:=destRng

---
Regards,
Norman



"webba" wrote in
message ...

How do I select the first empty row in a worksheet?

I'd like to copy a certain range form wksheet 1 and then past that
range into the next available row in wksheet 2.

Thanks!
Weber


--
webba
------------------------------------------------------------------------
webba's Profile:
http://www.excelforum.com/member.php...o&userid=26250
View this thread:
http://www.excelforum.com/showthread...hreadid=395463

Selecting the first empty row
 

This is great!
Thanks to both you guys!


--
webba
------------------------------------------------------------------------
webba's Profile: http://www.excelforum.com/member.php...o&userid=26250
View this thread: http://www.excelforum.com/showthread...hreadid=395463

Selecting the first empty row
 

Would you know how to paste the range Transposed ?

Thanks

--
webb
-----------------------------------------------------------------------
webba's Profile: http://www.excelforum.com/member.php...fo&userid=2625
View this thread: http://www.excelforum.com/showthread.php?threadid=39546

Selecting the first empty row
 

Hi Webba,

Try something like:

Dim srcRng As Range
Dim destRng As Range

Set srcRng = Sheets("Sheet1").Range("A10:A15")

Set destRng = Sheets("Sheet2"). _
Cells(Rows.Count, "A").End(xlUp)(2)

srcRng.Copy
destRng.PasteSpecial , Transpose:=True


---
Regards,
Norman



"webba" wrote in message
...

Would you know how to paste the range Transposed ?

Thanks!


--
webba
------------------------------------------------------------------------
webba's Profile:
http://www.excelforum.com/member.php...o&userid=26250
View this thread: http://www.excelforum.com/showthread...hreadid=395463

Selecting the first empty row
 

That did the trick. Many thanks Norman

--
webb
-----------------------------------------------------------------------
webba's Profile: http://www.excelforum.com/member.php...fo&userid=2625
View this thread: http://www.excelforum.com/showthread.php?threadid=39546

Selecting the first empty row
 

Hey guys!

Back again..

Now instead of choosing the first available row...

I'd like to choose the first available row BEFORE the total column al
the way on the bottom.

Any help would be great.

Thanks

--
webb
-----------------------------------------------------------------------
webba's Profile: http://www.excelforum.com/member.php...fo&userid=2625
View this thread: http://www.excelforum.com/showthread.php?threadid=39546