Copy paste special values from any location to any location.

[MarieTherese]

Hello lovely people,

I've had a look for an answer on this but can't find any solution flexible enough. I'm looking for a macro to replace the shortcut Ctrl + CSV. I've recorded the below code however it copies and pastes the selection in place, where as I want it to copy the selection and paste special values any where in the workbook.

Any ideas appreciated.

Sub PasteValues()
'
' PasteValues Macro
'
' Keyboard Shortcut: Ctrl+Shift+V
'
Selection.Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

 

[Jonmo1]

But seeing it will give as an idea of what you want..

Are you wanting to copy something by hand (not within the macro)
Then select where you want to pastespecial
THEN run the macro that does the paste special ?

If that's the case, just use

Sub SpecialPaste()
Selection.PasteSpecial Paste:=xlPasteValues
End Sub

 

[MarieTherese]

Hello lovely people,

I've had a look for an answer on this but can't find any solution flexible enough. I'm looking for a macro to replace the shortcut Ctrl + CSV. I've recorded the below code however it copies and pastes the selection in place, where as I want it to copy the selection and paste special values any where in the workbook.

Any ideas appreciated.

Sub PasteValues()
'
' PasteValues Macro
'
' Keyboard Shortcut: Ctrl+Shift+V
'
Selection.Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

For anyone interested in future I figured out a way by selecting the data I want to copy pressing ctrl + c and using the following macro code:

[FONT=tahoma, sans-serif]Sub AltCSV()[/FONT]
[FONT=tahoma, sans-serif]
[/FONT]
[FONT=tahoma, sans-serif]Set ThisCell = Selection[/FONT]
[FONT=tahoma, sans-serif] On Error Resume Next[/FONT]
[FONT=tahoma, sans-serif] [/FONT]
[FONT=tahoma, sans-serif] ThisCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _[/FONT]
[FONT=tahoma, sans-serif] :=False, Transpose:=False[/FONT]
[FONT=tahoma, sans-serif]
[/FONT]
[FONT=tahoma, sans-serif] On Error GoTo 0[/FONT]
[FONT=tahoma, sans-serif] [/FONT]
[FONT=tahoma, sans-serif]End Sub[/FONT]