Copy paste problem

[Stono]

How could you copy three cells in the same row to a different sheet?
Ex.. I is the row count, and I want to copy the cell (I,”B) and Cell (I,”C”) And Cell (I,”M”)

For i = Cells (Rows. Count, "M"). End (xlUp). Row To 1 Step –1

I did that but it did not work??!!
Cells(i,"B"),Cells(i,"C"),Cells(i,"M").copy

Please help

Sub Copytest()
Dim i As Double

For i = Cells(Rows.Count, "M").End(xlUp).Row To 1 Step -1
Application.Union(Cells(i, "B"), Cells(i, "C"), Cells(i, "M")).Copy Cells(i, "N")
Next

End Sub

HTH

Ivan

[Ivan F Moala]

Forgot to mention that I assumed you were
to paste to Column N ??

Change as required


Ivan

[Ivan F Moala]

That should be.......

Sub Copytest()
Dim i As Double

For i = Cells(Rows.Count, "M").End(xlUp).Row To 1 Step -1
Application.Union(Cells(i, "B"), Cells(i, "C"), Cells(i, "M")).Copy Sheets("Sheet2").Cells(i, "A")
Next

End Sub


Ivan

[Stono]

[Juan Pablo González]

Just to make sure we're on the same track, Ivan's code pastes the code to Sheet2!A:C, not Sheet2!B, C and M.

[Stono]

Thank you it worked perfectly