Copying of Entire Row - Almost There!

[dominicwellsuk]

Hi, I'm trying to put together some VBA that allows a user to select a cell on the sheet, then copies the entire row corresponding with that cell to the clipboard, to be pasted at a later point. Code is as follows so far:

Sub ROWCOPY()
Rows(ActiveCell.Row).Select
With New DataObject
.SetText ActiveCell.Text
.PutInClipboard
End With
End Sub

The problem with this is that the data on the clipboard appears to only be the value in Column A of the row. I can't get it to copy the full row.

Any ideas how to get this done?

Thanks.

 

[TiaXL]

Hi, I'm trying to put together some VBA that allows a user to select a cell on the sheet, then copies the entire row corresponding with that cell to the clipboard, to be pasted at a later point. Code is as follows so far:

Sub ROWCOPY()
Rows(ActiveCell.Row).Select
With New DataObject
.SetText ActiveCell.Text
.PutInClipboard
End With
End Sub

The problem with this is that the data on the clipboard appears to only be the value in Column A of the row. I can't get it to copy the full row.

Any ideas how to get this done?

Thanks.

sub test()
 
RANGE(SELECTION, SELECTION.END(XLTORIGHT)).COPY
 
end sub

 

[dominicwellsuk]

Seems to do the job, although some of the cells in the row are blank, and it stops at these so it would have to ignore the blanks and copy the entire row.

 

[dominicwellsuk]

I've changed to RANGE(SELECTION, SELECTION).COPY which does the job very nicely.

Thanks

 

[Darkspartan]

selection.entirerow.copy