Paste Values AND Comments

[pliskers]

I've tried every combination I can think of to have a macro paste over a range both the values of the formulas AND the comments housed in some of the cells. Regardless of the order in which executed, the pasting of values always seems to delete the comments. Is there a workaround?

Thanks in advance!

 

[mrshl9898]

This is working for me.

Sub CommentCopy()
 Range("A1").Copy
 Range("A2").PasteSpecial xlPasteValues
 Range("A2").PasteSpecial xlPasteComments
 Application.CutCopyMode = False
End Sub

 

[pliskers]

This is working for me.

Sub CommentCopy()
Range("A1").Copy
Range("A2").PasteSpecial xlPasteValues
Range("A2").PasteSpecial xlPasteComments
Application.CutCopyMode = False
End Sub

I’ll give it a try. The only difference from what I’ve tried is the CutCopyMode statement

 

[mrshl9898]

That won't make a difference, maybe it's a 2016 difference. I'm using 365.

 

[pliskers]

I’ll give it a try. The only difference from what I’ve tried is the CutCopyMode statement

Might the issue be that I’m pasting everything onto the same range? Basically converting formulas and comments into values and want the comments to remain.

 

[mrshl9898]

Looks like comments are pasted cell by cell rather than a range. You'll need some kind of loop to paste them in separately it seems.

 

[pliskers]

Thanks for letting me know. I think I’ll have to pass on that, there are too many and the locations change frequently.