how to copy and past row by row to Second sheet

[charith]

hello..

i want to copy data from column 1 in sheet 1 to column 2 in sheet 2.I tried this code, but it didn't work

Sheets(Sheet1).Cells(.Row, 1).value = Sheets(Sheet2).Cells(.Row ,1).value

please help me


<code style="margin: 0px; padding: 0px; border: 0px; vertical-align: baseline; font-family: Consolas, Menlo, Monaco, 'Lucida Console', 'Liberation Mono', 'DejaVu Sans Mono', 'Bitstream Vera Sans Mono', 'Courier New', monospace, serif;"> </code></pre>

 

[L. Howard]

Here are a couple of options.
For the second macro select the cell on sheet 1 to copy to sheet 2.

Regards,
Howard

Option Explicit

Sub AllCells()
Dim c As Range
Dim rngA As Range
Dim lr As Long

lr = Cells(Rows.Count, 1).End(xlUp).Row
Set rngA = Range("A1:A" & lr)

For Each c In rngA
   c.Copy Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Next

End Sub




Sub OneCell()
Dim i As Long
i = ActiveCell.Row

  ActiveCell.Copy Sheets("Sheet2").Cells(i, 1)

End Sub

 

[charith]

Bump