Copy/Special-Paste Only Color,Border and Comment

[JMay]

Don't think this capability is built-in, but I would like to:

Say cell B2 has Value of "abc" or "123" and has color vbYellow,
outline borderline with comment manually input "This item has cleared."

After doing a Ctl-C on B2 I'd like to be able to click on B10 << with
value of "def" or "456" presently without color, solid outline border or
comment assigned
and then click on a button on my toolbar (with special icon assigned
to a macro) that will paste/duplicate the vbYellow color, border outline
and the comment
"This item has cleared". Also at times I would like that I could choose
multiple
destination cells to perform this. (Selecting the destination cells by
highlighting with mouse, or holding down control key and clicking multiple
cells, before running macro which would paste to those cells)..
I've tried using the Macro recorder, but only get "parts and pieces", which
I can't seem to put together..

Can someone assist?
TIA,,

 

[NC]

Use "paste special..." This gives an option of pasting the formatting of the
cell.

 

[Guest]

Yes, But using Edit Paste-Special only provides for
either "format" OR "comment", but not BOTH simultaneously;
I want a macro that will accomplish copy/paste both at
the same time. Can it be done?

 

[JMay]

Using Edit Paster Special gives you and either/or
If only you could check both "format" and "comment"
simultaneously... But no-go... I am looking for a work-
around!!
TIA,,

 

[Dave Peterson]

Just do them right away:

If Application.CutCopyMode = xlCopy Then
Selection(1).PasteSpecial Paste:=xlPasteFormats, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection(1).PasteSpecial Paste:=xlPasteComments, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Else
Beep
End If