PastSpecial problem

[gheyman]

I have this code that seemed to be working in the past, but now the users are getting an error message. if they are copying from another Excel workbook it works but if they are copying from any other source (like Notepad) they get an error

Run-Time error '1004':
PasteSpecial Method of Range class failed.

Sub PastePropVersion()
'PasteButton


Sheets("ProPricer Info").Range("D12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False


End Sub

Thanks for the help

 

[Jaafar Tribak]

Since you are pasting values only, you could skip using PasteSpecial, retrieve the text from the clipboard using the DataObject and assign the retrieved clipboard text directly to cell D12

Sub PastePropVersion()
    'PasteButton
    Sheets("ProPricer Info").Range("D12").Select
    With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .GetFromClipboard
        If .GetFormat(1&) Then
            Selection = .GetText(1&)
        Else
            MsgBox "Clipboard Empty!"
        End If
    End With
    Application.CutCopyMode = False
End Sub

 

[6StringJazzer]

A direct assignment should work. The reason PasteSpecial does not work for data copied from external sources is that PasteSpecial requires an Excel range.

 

[gheyman]

Since you are pasting values only, you could skip using PasteSpecial, retrieve the text from the clipboard using the DataObject and assign the retrieved clipboard text directly to cell D12

Sub PastePropVersion()
    'PasteButton
    Sheets("ProPricer Info").Range("D12").Select
    With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .GetFromClipboard
        If .GetFormat(1&) Then
            Selection = .GetText(1&)
        Else
            MsgBox "Clipboard Empty!"
        End If
    End With
    Application.CutCopyMode = False
End Sub

Thank you