help with range copy

[saziz]

HI all,

This is what I am trying to do, look in range Column A in active sheet,
copy upto whatever range is filled down and paste in sheet 2. the code
below is copying only the last cell and pasting in sheet 2.


Range("A65536").End(xlUp).Copy _
Worksheets("sheet2").Range("a65536").End(xlUp)

Appreciate your help.
Thanks
Syed

 

[Ron de Bruin]

Hi Syed

Try this

Sub test()
Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)).Copy _
Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp)(2)
End Sub

 

[saziz]

Thank you ron, it worked perfectly.
Is there a book I can buy to learn all these nitty gritty details o
the code.
Best regards
Sye

 

[Ron de Bruin]

Hi Syed

1) Read the newsgroups
You can use this add also
http://www.rondebruin.nl/Google.htm

2)Buy this book
http://www.amazon.com/exec/obidos/ASIN/0764540726/104-6485206-1685505

And next year
http://www.amazon.com/exec/obidos/ASIN/0321262506/104-6485206-1685505

 

[saziz]

Thank you Ron.
I will buy the book.
Sye