Data management

[EDUCATED MONKEY]

copy two columns form one work sheet to the next to available on another, look all over the web for this can’t find it any where plenty to next row but not next column<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o> </o>
if you know of a post or solution I would be most grateful <o></o>
<o> </o>

 

[venkat1926]

try a macro like this

Sub test()
With Worksheets("sheet1")
.Range("C1:D1").EntireColumn.Copy
With Worksheets("sheet2")
.Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1).PasteSpecial
End With
End With
Application.CutCopyMode = False
End Sub

 

[Ruddles]

Which two columns do you want to copy? I mean, how are they identifiable?

Generally, to copy two columns (A:B) from one sheet to the next free column in another sheet:-

[FONT=Fixedsys]  Dim iNextFreeColumn
  
  With ThisWorkbook
    iNextFreeColumn = .Sheets(2).UsedRange.Columns.Count + .Sheets(2).UsedRange.Column
    .Sheets(1).Columns("A:B").Copy
    .Sheets(2).Columns(iNextFreeColumn).Insert Shift:=xlToRight
  End With
[/FONT]

 

[EDUCATED MONKEY]

Thank you very much works just great pete