Go to next blank row
 

I wish to copy a row of data 2:2 from Sheet 1 to the next blank row in Sheet
2, would appreciate VBA code to execute. Many thanks

Go to next blank row
 

with worksheets("Sheet2")
worksheets("Sheet1").rows(2).copy _
Destination:= .Cells(rows.count,1).End(xlup)(2)
End With

--
Regards,
Tom Ogilvyl


"Andy Josolyne" <Andy wrote in message
...
I wish to copy a row of data 2:2 from Sheet 1 to the next blank row in
Sheet
2, would appreciate VBA code to execute. Many thanks

Go to next blank row
 

Andy,

Worksheets("Sheet1").Range("2:2").EntireRow.Copy _
Worksheets("Sheet2").Range("A65536").End(xlUp)(2). EntireRow

HTH,
Bernie
MS Excel MVP

"Andy Josolyne" <Andy wrote in message
...
I wish to copy a row of data 2:2 from Sheet 1 to the next blank row in
Sheet
2, would appreciate VBA code to execute. Many thanks

Go to next blank row
 

Many thanks, please advise what is required to paste special as values in
Sheet 2

"Bernie Deitrick" wrote:

Andy,

Worksheets("Sheet1").Range("2:2").EntireRow.Copy _
Worksheets("Sheet2").Range("A65536").End(xlUp)(2). EntireRow

HTH,
Bernie
MS Excel MVP

"Andy Josolyne" <Andy wrote in message
...
I wish to copy a row of data 2:2 from Sheet 1 to the next blank row in
Sheet
2, would appreciate VBA code to execute. Many thanks

Go to next blank row
 

Andy,

Worksheets("Sheet1").Range("2:2").EntireRow.Copy
Worksheets("Sheet2").Range("A65536").End(xlUp)(2) _
.EntireRow.PasteSpecial Paste:=xlPasteValues

HTH,
Bernie
MS Excel MVP

"Andy Josolyne" wrote in message
...
Many thanks, please advise what is required to paste special as values in
Sheet 2

"Bernie Deitrick" wrote:

Andy,

Worksheets("Sheet1").Range("2:2").EntireRow.Copy _
Worksheets("Sheet2").Range("A65536").End(xlUp)(2). EntireRow

HTH,
Bernie
MS Excel MVP

"Andy Josolyne" <Andy wrote in
message
...
I wish to copy a row of data 2:2 from Sheet 1 to the next blank row in
Sheet
2, would appreciate VBA code to execute. Many thanks

Go to next blank row
 

Dear Bernie

Many many thanks for your amazingly fast response.

Regards

Andy Josolyne
"Bernie Deitrick" wrote:

Andy,

Worksheets("Sheet1").Range("2:2").EntireRow.Copy
Worksheets("Sheet2").Range("A65536").End(xlUp)(2) _
.EntireRow.PasteSpecial Paste:=xlPasteValues

HTH,
Bernie
MS Excel MVP

"Andy Josolyne" wrote in message
...
Many thanks, please advise what is required to paste special as values in
Sheet 2

"Bernie Deitrick" wrote:

Andy,

Worksheets("Sheet1").Range("2:2").EntireRow.Copy _
Worksheets("Sheet2").Range("A65536").End(xlUp)(2). EntireRow

HTH,
Bernie
MS Excel MVP

"Andy Josolyne" <Andy wrote in
message
...
I wish to copy a row of data 2:2 from Sheet 1 to the next blank row in
Sheet
2, would appreciate VBA code to execute. Many thanks

Go to next blank row
 

not good how can I modify this to copy from data sheet E:L cells
to donors A:H paste
I dont follow the 2:2

"Bernie Deitrick" wrote:

Andy,

Worksheets("Sheet1").Range("2:2").EntireRow.Copy
Worksheets("Sheet2").Range("A65536").End(xlUp)(2) _
.EntireRow.PasteSpecial Paste:=xlPasteValues

HTH,
Bernie
MS Excel MVP

"Andy Josolyne" wrote in message
...
Many thanks, please advise what is required to paste special as values in
Sheet 2

"Bernie Deitrick" wrote:

Andy,

Worksheets("Sheet1").Range("2:2").EntireRow.Copy _
Worksheets("Sheet2").Range("A65536").End(xlUp)(2). EntireRow

HTH,
Bernie
MS Excel MVP

"Andy Josolyne" <Andy wrote in
message
...
I wish to copy a row of data 2:2 from Sheet 1 to the next blank row in
Sheet
2, would appreciate VBA code to execute. Many thanks

Go to next blank row
 

2:2 designates row 2.

You need to do a better job of describing what you need. It is hard to
understand what you want when you say:

"copy from data sheet E:L cells to donors A:H paste"

Is it a sheet called "data"? Is it a sheet called "donors"? Are you copying
Column E:L to A:H?

Worksheets("data").Columns("E:L").Copy
Worksheets("donor").Range("A1").PasteSpecial xlPasteValues


Regards,

Alan



"Curt" wrote in message
...
not good how can I modify this to copy from data sheet E:L cells
to donors A:H paste
I dont follow the 2:2

"Bernie Deitrick" wrote:

Andy,

Worksheets("Sheet1").Range("2:2").EntireRow.Copy
Worksheets("Sheet2").Range("A65536").End(xlUp)(2) _
.EntireRow.PasteSpecial Paste:=xlPasteValues

HTH,
Bernie
MS Excel MVP

"Andy Josolyne" wrote in message
...
Many thanks, please advise what is required to paste special as values
in
Sheet 2

"Bernie Deitrick" wrote:

Andy,

Worksheets("Sheet1").Range("2:2").EntireRow.Copy _
Worksheets("Sheet2").Range("A65536").End(xlUp)(2). EntireRow

HTH,
Bernie
MS Excel MVP

"Andy Josolyne" <Andy wrote in
message
...
I wish to copy a row of data 2:2 from Sheet 1 to the next blank row
in
Sheet
2, would appreciate VBA code to execute. Many thanks

Go to next blank row
 

Must say you are good at understanding you are right on My lack of knowledge
in this realm is great. Next time I will describe sheets better. to say
worksheet data etc. Thanks for the update about language
Thanks for the responce.

"Alan" wrote:

2:2 designates row 2.

You need to do a better job of describing what you need. It is hard to
understand what you want when you say:

"copy from data sheet E:L cells to donors A:H paste"

Is it a sheet called "data"? Is it a sheet called "donors"? Are you copying
Column E:L to A:H?

Worksheets("data").Columns("E:L").Copy
Worksheets("donor").Range("A1").PasteSpecial xlPasteValues


Regards,

Alan



"Curt" wrote in message
...
not good how can I modify this to copy from data sheet E:L cells
to donors A:H paste
I dont follow the 2:2

"Bernie Deitrick" wrote:

Andy,

Worksheets("Sheet1").Range("2:2").EntireRow.Copy
Worksheets("Sheet2").Range("A65536").End(xlUp)(2) _
.EntireRow.PasteSpecial Paste:=xlPasteValues

HTH,
Bernie
MS Excel MVP

"Andy Josolyne" wrote in message
...
Many thanks, please advise what is required to paste special as values
in
Sheet 2

"Bernie Deitrick" wrote:

Andy,

Worksheets("Sheet1").Range("2:2").EntireRow.Copy _
Worksheets("Sheet2").Range("A65536").End(xlUp)(2). EntireRow

HTH,
Bernie
MS Excel MVP

"Andy Josolyne" <Andy wrote in
message
...
I wish to copy a row of data 2:2 from Sheet 1 to the next blank row
in
Sheet
2, would appreciate VBA code to execute. Many thanks

Go to next blank row
 

What I didn't get across was this is to be done many times over each time it
is repeated it needs to goto next row not overwrite. Will copy in and see
what I can do.
Thanks

"Alan" wrote:

2:2 designates row 2.

You need to do a better job of describing what you need. It is hard to
understand what you want when you say:

"copy from data sheet E:L cells to donors A:H paste"

Is it a sheet called "data"? Is it a sheet called "donors"? Are you copying
Column E:L to A:H?

Worksheets("data").Columns("E:L").Copy
Worksheets("donor").Range("A1").PasteSpecial xlPasteValues


Regards,

Alan



"Curt" wrote in message
...
not good how can I modify this to copy from data sheet E:L cells
to donors A:H paste
I dont follow the 2:2

"Bernie Deitrick" wrote:

Andy,

Worksheets("Sheet1").Range("2:2").EntireRow.Copy
Worksheets("Sheet2").Range("A65536").End(xlUp)(2) _
.EntireRow.PasteSpecial Paste:=xlPasteValues

HTH,
Bernie
MS Excel MVP

"Andy Josolyne" wrote in message
...
Many thanks, please advise what is required to paste special as values
in
Sheet 2

"Bernie Deitrick" wrote:

Andy,

Worksheets("Sheet1").Range("2:2").EntireRow.Copy _
Worksheets("Sheet2").Range("A65536").End(xlUp)(2). EntireRow

HTH,
Bernie
MS Excel MVP

"Andy Josolyne" <Andy wrote in
message
...
I wish to copy a row of data 2:2 from Sheet 1 to the next blank row
in
Sheet
2, would appreciate VBA code to execute. Many thanks