Put a macro in my code that will help me copy faster a text from a textbox to simply paste it in a whatsapp chat for example, at first it worked for me but then not anymore, I hit copy and it doesn't copy the message, but that these symbols appear to me, when I check the excel clipboard it appears that the text was copied, but when I try to paste it the symbols appear
Private Sub COPY_PP_Click()
Dim PP As New MSForms.DataObject
Dim texto1 As String
If TXT_MENSAJE.Text <> Empty Then
texto1 = CStr(TXT_MENSAJE.Text)
Set PP = New DataObject
PP.SetText texto1
PP.PutInClipboard
End If
end sub
A bug in Windows 10 is being documented with this topic. Apparently, if you have file explorer open before excel, it just won't work, however, if you open excel, and then explorer, you won't have a problem.
(I have NOT been able to check it, but maybe you who have the routine working could do it and let us know if it worked for you) On SO , @Bill Simpson made a fix that worked for him. Maybe it will help you.