Copying Range from 1 sheet to next
 

Hi,

I am trying to copy a range of cells (A1:C3)
from Sheet 1 to Sheet 2
The code below doesn't work, can anyone assist,
Thanks

Sub cop()
Dim i, j
For i = 1 To 3
For j = 1 To 3

Sheets("Sheet1").Cells(i, j).Copy
Sheets("Sheet2").Paste Cells(i, j)

Next
Next

End Sub

Copying Range from 1 sheet to next
 

Hi Teresa,

Try:

Sheets("Sheet1").Range("A1:C3").Copy Sheets("Sheet2").Range("A1")

---
Regards,
Norman



"teresa" wrote in message
...
Hi,

I am trying to copy a range of cells (A1:C3)
from Sheet 1 to Sheet 2
The code below doesn't work, can anyone assist,
Thanks

Sub cop()
Dim i, j
For i = 1 To 3
For j = 1 To 3

Sheets("Sheet1").Cells(i, j).Copy
Sheets("Sheet2").Paste Cells(i, j)

Next
Next

End Sub

Copying Range from 1 sheet to next
 

Worksheets("Sheet1").Range("A1:C3").Copy _
Destination:=Worksheets("Sheet2").Range("A1")

--
Regards,
Tom Ogilvy


"teresa" wrote in message
...
Hi,

I am trying to copy a range of cells (A1:C3)
from Sheet 1 to Sheet 2
The code below doesn't work, can anyone assist,
Thanks

Sub cop()
Dim i, j
For i = 1 To 3
For j = 1 To 3

Sheets("Sheet1").Cells(i, j).Copy
Sheets("Sheet2").Paste Cells(i, j)

Next
Next

End Sub

Copying Range from 1 sheet to next
 

Thanks a lot guys - you've been very helpful

"Tom Ogilvy" wrote:

Worksheets("Sheet1").Range("A1:C3").Copy _
Destination:=Worksheets("Sheet2").Range("A1")

--
Regards,
Tom Ogilvy


"teresa" wrote in message
...
Hi,

I am trying to copy a range of cells (A1:C3)
from Sheet 1 to Sheet 2
The code below doesn't work, can anyone assist,
Thanks

Sub cop()
Dim i, j
For i = 1 To 3
For j = 1 To 3

Sheets("Sheet1").Cells(i, j).Copy
Sheets("Sheet2").Paste Cells(i, j)

Next
Next

End Sub