Halo..
U can just repeat the code only like the following example.:)
Sub Copy1()
Worksheets("Sheet2").Range("A1:A10").Copy
ActiveSheet.Paste
Destination:=Worksheets("Sheet1").Range("A1:A10")
Worksheets("Sheet2").Range("C1:C10").Copy
ActiveSheet.Paste
Destination:=Worksheets("Sheet1").Range("C1:C10")
End Sub
or another way is write the formula into the sheet1( Destination of the
data) for auto copying the data
=SHEET2!A1
I have attach the file, u can have a look!
Regards,
Sharon:)
+-------------------------------------------------------------------+
|Filename: Book1.zip |
|Download:
http://www.excelforum.com/attachment.php?postid=4190 |
+-------------------------------------------------------------------+
--
sharon2006
------------------------------------------------------------------------
sharon2006's Profile:
http://www.excelforum.com/member.php...o&userid=30173
View this thread:
http://www.excelforum.com/showthread...hreadid=498589