ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   My first Macro try (https://www.excelbanter.com/excel-programming/374412-my-first-macro-try.html)

Pat Flynn

My first Macro try
 
I am writing a macro that places data from one sheet into a new sheet. Where
or how do I get the instruction move a row or range of data more efficiently
than sheets ("sheet2").range("q15")=sheets("sheet1").range("a1 ")
Thanks for the prod in the right direction
Pat

Sheet 1
a b c d e
1 K L O P
2 L P M N
Sheet 2
Q R S T
15
16


JE McGimpsey

My first Macro try
 
If I understand you correctly, this is one efficient way:

With Sheets("Sheet 1").Range("A1:E2")
Sheets("Sheet 2").Range("Q15").Resize( _
.Rows.Count, .Columns.Count).Value = .Value
End With

alternatively:

Sheets("Sheet 1").Range("A1:E2").Copy _
Destination:=Sheets("Sheet 2").Range("Q15")



In article ,
Pat Flynn wrote:

I am writing a macro that places data from one sheet into a new sheet. Where
or how do I get the instruction move a row or range of data more efficiently
than sheets ("sheet2").range("q15")=sheets("sheet1").range("a1 ")
Thanks for the prod in the right direction
Pat

Sheet 1
a b c d e
1 K L O P
2 L P M N
Sheet 2
Q R S T
15
16


Pat Flynn

My first Macro try
 
Thanks JE. I will try these after work tonight-I,m sure they will both
work-thanks again.

"JE McGimpsey" wrote:

If I understand you correctly, this is one efficient way:

With Sheets("Sheet 1").Range("A1:E2")
Sheets("Sheet 2").Range("Q15").Resize( _
.Rows.Count, .Columns.Count).Value = .Value
End With

alternatively:

Sheets("Sheet 1").Range("A1:E2").Copy _
Destination:=Sheets("Sheet 2").Range("Q15")



In article ,
Pat Flynn wrote:

I am writing a macro that places data from one sheet into a new sheet. Where
or how do I get the instruction move a row or range of data more efficiently
than sheets ("sheet2").range("q15")=sheets("sheet1").range("a1 ")
Thanks for the prod in the right direction
Pat

Sheet 1
a b c d e
1 K L O P
2 L P M N
Sheet 2
Q R S T
15
16




All times are GMT +1. The time now is 03:58 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com