Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 169
Default 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


  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 5,302
Default 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




  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 27,285
Default 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




  #4   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 169
Default 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





Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Need help Taking alot data from one sheet (if not blank) and copying toa list on another sheet. Alex Zuniga Excel Worksheet Functions 1 November 25th 09 11:54 PM
Copying a range to another sheet Arlen Excel Discussion (Misc queries) 1 February 3rd 05 12:41 AM
Macro for copying named range to any sheet Cutter[_6_] Excel Programming 6 July 2nd 04 11:03 PM
Copying a particular range of values from one sheet to another in excel anoop_2000 Excel Programming 2 June 17th 04 03:46 AM
Copying a Filtered Range from a Sheet in another Workbook Frederick Excel Programming 2 August 10th 03 03:29 PM


All times are GMT +1. The time now is 06:21 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"