Can someone point me in the right direction? I need to copy only the cell
borders and fill color from one cell to another. I do not want to copy the
contents of the cell, only borders and fill color.
--
TIA
Chuck M.

You can select the cell to copy, right-click and select copy, then select the
cell to paste to, right-click and select Paste Special then choose formats.

Or:
Range("B38").Select
Application.CutCopyMode = False
Selection.Copy
Range("B35").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

"Chuck M" wrote:

> Can someone point me in the right direction? I need to copy only the cell
> borders and fill color from one cell to another. I do not want to copy the
> contents of the cell, only borders and fill color.
> --
> TIA
> Chuck M.

Mike,

This is perfect. I needed the VBA solution (although I failed to mention
that in my original post).

Thanks and Happy New Year!
--

Chuck M.


"mikearelli" wrote:

> You can select the cell to copy, right-click and select copy, then select the
> cell to paste to, right-click and select Paste Special then choose formats.
>
> Or:
> Range("B38").Select
> Application.CutCopyMode = False
> Selection.Copy
> Range("B35").Select
> Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
> SkipBlanks:=False, Transpose:=False
>
> "Chuck M" wrote:
>
> > Can someone point me in the right direction? I need to copy only the cell
> > borders and fill color from one cell to another. I do not want to copy the
> > contents of the cell, only borders and fill color.
> > --
> > TIA
> > Chuck M.

That's a clumsy 'Recorded Macro' version of the code. You may be able to
streamline it a bit. I love being able to record macros then manipulate the
clumsy code. It's a whole lot better than fumbling through the 'intuitive'
help screens Microsoft provides.

"Chuck M" wrote:

> Mike,
>
> This is perfect. I needed the VBA solution (although I failed to mention
> that in my original post).
>
> Thanks and Happy New Year!
> --
>
> Chuck M.
>
>
> "mikearelli" wrote:
>
> > You can select the cell to copy, right-click and select copy, then select the
> > cell to paste to, right-click and select Paste Special then choose formats.
> >
> > Or:
> > Range("B38").Select
> > Application.CutCopyMode = False
> > Selection.Copy
> > Range("B35").Select
> > Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
> > SkipBlanks:=False, Transpose:=False
> >
> > "Chuck M" wrote:
> >
> > > Can someone point me in the right direction? I need to copy only the cell
> > > borders and fill color from one cell to another. I do not want to copy the
> > > contents of the cell, only borders and fill color.
> > > --
> > > TIA
> > > Chuck M.

Mike,

Is there any way I can do this, but excluding color?

I need a way to copy the borders and font format, but not the shading.

Any help appreciated!

"mikearelli" wrote:

> You can select the cell to copy, right-click and select copy, then select the
> cell to paste to, right-click and select Paste Special then choose formats.
>
> Or:
> Range("B38").Select
> Application.CutCopyMode = False
> Selection.Copy
> Range("B35").Select
> Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
> SkipBlanks:=False, Transpose:=False
>
> "Chuck M" wrote:
>
> > Can someone point me in the right direction? I need to copy only the cell
> > borders and fill color from one cell to another. I do not want to copy the
> > contents of the cell, only borders and fill color.
> > --
> > TIA
> > Chuck M.