Copy from Excel and Paste in external app?

[jmpatrick]

Good morning!

Here's today's issue: I'm copying from a cell in Excel to another app. I'm getting a trailing carriage return when I paste in Notepad, Word, and Adobe Acrobat.

Result:

If I copy the text D10 and paste it in E10 I can get the value up in the Formula Bar. If I copy the text in the Formula Bar I can paste it anywhere without the trailing carriage return. Is it possible to copy the formula using VBA?

 

[duggie33]

Do you have the code in the ShippingInstructions worksheet code?

 

[jmpatrick]

Do you have the code in the ShippingInstructions worksheet code?

I do.

 

[duggie33]

Not sure, works great on mine. Make google your friend.

 

[NoSparks]

Hello jmpatrick
if you run this code against the E10 cell does the immediate window indicate any 'extra' character ?

Sub CheckOfCharacters()
    Dim i As Integer, str As String
str = ActiveCell.Value
'MsgBox ActiveCell.Font.Name
    For i = 1 To Len(str)
        Debug.Print Mid(str, i, 1) & "  =  " & Asc(Mid(str, i, 1))
        'Debug.Print Mid(str, i, 1) & "  =  " & AscW(Mid(str, i, 1))
    Next
End Sub

 

[jmpatrick]

Not sure, works great on mine. Make google your friend.

Google WAS my friend! Just had to make a slight change and it works perfect:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Not Intersect(Target, Range("E10")) Is Nothing Then
        With New DataObject
            .SetText Target.Text
            .PutInClipboard
        End With
    End If

End Sub

Thanks for your help!

 

[duggie33]

Great, for the rest of us, what was the change?

 

[jmpatrick]

Great, for the rest of us, what was the change?

Changed this:

If Not Intersect(Target, Sheet1.Range("D1:D50")) Is Nothing Then

To this:

If Not Intersect(Target, Range("E10")) Is Nothing Then

 

[duggie33]

Thanks jmpatrick. The sheet name, while probably not required in the worksheet code, shouldn't have prevented from working. I generally write code very explicitly; maybe to a fault. Whatever the reason, I am glad you got it working.

Doug