Removing trailing space when pasting copied information from cell text copied

[slayer1957]

Good day,

I have this code, when clicing a cell it copies to clipboard, it works as it should. However when pasting into any other program it pastes with a space/enter function to all programs. How do i copy and paste without the space at end of the selected cell text.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:H50")) Is Nothing Then
        Target.Copy
    End If
End Sub

Also when selecting the text, maybe it should clear previous clipboard?

If anyone knows how on this forum please help, i have tried looking but cannot find code just to remove the space.

Thanks in advance.

 

[slayer1957]

Anyone?

 

[slayer1957]

I want the cursor when pasting to end at end of text,

and not add to next line like this, each timeI have to press


backspace in the other program pasting to. I have to do more than thousand of copies and pastes.


This it should not do (check the position of cursor on the images

 

[slayer1957]

This is so hard, there no solution to this, how can i record a macro, then double click on the cell, select the text and then copy. This works, but how can i record this and then it does this with every cell i click?

 

[Alex Blakenburg]

See if this does what you need.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim objClipboard As Object
    
    If Not Intersect(Target, Range("A1:H50")) Is Nothing Then
        Set objClipboard = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        objClipboard.SetText Target
        objClipboard.PutInClipboard
    End If
End Sub

 

[slayer1957]

Works like a dream! You are a star!

 

[Alex Blakenburg]

Thanks for letting me know. Glad I could help.