Paste error

[topi1]

Why do I keep getting pate error when I copy text from non-excel program and then use the keyboard short cut to run the following vba?

   Range("A1").Select
    ActiveSheet.Paste
    Range("B1").Select
    Selection.Copy

 

[Micron]

I'd say because the code did not copy anything so as far as Excel is concerned there is nothing to paste. Look for code that accesses the clipboard. I don't know if I have any but will look. Maybe search on "Excel vba paste from clipboard"

 

[Micron]

This is all I have that might be of some use to you. It puts the text selected in a userform textbox into the clipboard, then gets it from the clipboard and presents it in a message box. The key parts for you would be the dataobject parts.

Private Sub CommandButton1_Click()
Dim strclipboard As String
Dim objData As Object

Set objData = New DataObject
strclipboard = Mid(Me.TextBox1, Me.TextBox1.SelStart, Me.TextBox1.SelLength)
objData.SetText strclipboard
objData.PutInClipboard
MsgBox objData.GetText(1)

End Sub

 

[topi1]

Thank you. Can’t wait to try.

 

[topi1]

This is all I have that might be of some use to you. It puts the text selected in a userform textbox into the clipboard, then gets it from the clipboard and presents it in a message box. The key parts for you would be the dataobject parts.

Private Sub CommandButton1_Click()
Dim strclipboard As String
Dim objData As Object

Set objData = New DataObject
strclipboard = Mid(Me.TextBox1, Me.TextBox1.SelStart, Me.TextBox1.SelLength)
objData.SetText strclipboard
objData.PutInClipboard
MsgBox objData.GetText(1)

End Sub

Did not work for me. I don’t understand it.

 

[Alex Blakenburg]

If you are manually copying something from another application and using the macro to paste it try:

    Range("A1").PasteSpecial Paste:=xlPasteAll

 

[topi1]

If you are manually copying something from another application and using the macro to paste it try:

    Range("A1").PasteSpecial Paste:=xlPasteAll

@Micron and @Alex Blakenburg I tried everything, including codes both of you provided, but nothing was working consistently. Finally, I added a step in the start to activate excel and clear cell A1 contents before doing anything else. Now it works consistently. Thank you both for your help.

 

[Alex Blakenburg]

Thanks for letting us know. Glad you found something that worked for you.

 

[Micron]

Ditto