Copying data

[RB]

Hi All,

I want to copy data from one sheet to another. I have to select Col A and
as many rows that have data in it (from A1 to A32), but this has to be
dynamic becuase the rows might change. I then have to copy these selected
cells to sheet 1. I nedd the code for this. I knw the solution is simple but
cajt seem to figure out. Can somebody pls help. It will be appreciated.

 

[Ron de Bruin]

Try this to copy from Sheet1 to sheet2 A1

Sheets("Sheet1").Range("A1:A" & Range( _
"A" & Rows.Count).End(xlUp).Row).Copy Sheets("Sheet2").Range("A1")

 

[Ron de Bruin]

This one is better

Sub test()
With Sheets("Sheet1")
.Range("A1:A" & .Range( _
"A" & .Rows.Count).End(xlUp).Row).Copy Sheets("Sheet2").Range("A1")
End With
End Sub

 

[Don Guillett]

To help in your assignment look in the archives for
last row

 

[Kevin]

Try this

Sub cop()
Range("A1", Range("A1").End(xlDown)).Copy _
Destination:=Worksheets("Sheet1").Range("A1")
Application.CutCopyMode = False
End Sub

 

[RB]

Thanks Ron,

That solved my problem!

Try this to copy from Sheet1 to sheet2 A1

Sheets("Sheet1").Range("A1:A" & Range( _
"A" & Rows.Count).End(xlUp).Row).Copy Sheets("Sheet2").Range("A1")

 

[Ron de Bruin]

Hi RB

You are welcome

Use the other example I posted, this one is also working correct if "sheet1" is not active.


Sub test()
With Sheets("Sheet1")
.Range("A1:A" & .Range( _
"A" & .Rows.Count).End(xlUp).Row).Copy Sheets("Sheet2").Range("A1")
End With
End Sub