Paste in "match destination format" macro code

  • Thread starter Thread starter Hopelesslylost
  • Start date Start date
H

Hopelesslylost

Could anybody give me the macro code line to allow me to paste text in the
"match destination format"

In Word it looks like this:

Selection.PasteAndFormat (wdFormatPlainText)

but I can't find anything in Excel.

Thank's a lot in advance!
 
If you do Paste|special|values, then the formatting won't change.

Or you could paste the formula?

Or you could just assign the value?

range("a1").copy
range("B1").pastespecial paste:=xlpastevalues

or

range("b1").value = range("a1").value

or
range("B1").value = "my text here"
 
Thanks for trying to help. I used

ActiveCell.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
 
I have created this.. Just see if this works for you.

Private Sub Only_PasteValue_Or_Text()
'
'
'Connect to Ctrl+v
'This will Paste with Destination Formats only
'Tested on Excel 2010 not on previous versions.
'
'
On Error Resume Next
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False, NoHTMLFormatting:=True
ActiveCell.PasteSpecial Paste:=xlPasteValues

ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:= _
False

End Sub
 
Back
Top