Copy a cell text without any line break

[slayer1957]

Good day,

I need a Private sub when double clicked on a cell it must do the same as putting the cell to edit mode F2 and highlighting/selecting all text and copying it to clipboard. Currently it copies the text but when pasting in another program it pastes with multiple line breaks and i have to go and edit the whole document again. The code i have now is below.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)On Error Resume Next
If Target.Value <> "" Then
Target.Copy
End If
Cancel = True
End Sub

 

[slayer1957]

Seems to be working with this code.

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next


Dim MyDataObj As New DataObject
Dim myStr As String


myStr = ActiveCell.Text
If Right(myStr, 1) = vbLf Then
myStr = Left(myStr, Len(myStr) - 1)
End If


MyDataObj.SetText myStr
MyDataObj.PutInClipboard
End Sub