Hi,

I am using a PasteSpecial Paste:=xlPasteFormats code to copy cells plus
format from one sheet to another. This code copies everything.

I do not want to copy the cell border format just contents, content size,
colour, format etc plus any filling in the cells.

Is there a condition I can set so it does not copy border formats?

Thanks

From the Recorder:

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 4/22/2009 by James Ravenswood
'

'
Range("C2").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders,
Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub

--
Gary''s Student - gsnu200848


"LiAD" wrote:

Hi,

I am using a PasteSpecial Paste:=xlPasteFormats code to copy cells plus
format from one sheet to another. This code copies everything.

I do not want to copy the cell border format just contents, content size,
colour, format etc plus any filling in the cells.

Is there a condition I can set so it does not copy border formats?

Thanks

Hi,

Unfortunately I need the paste values otherwise I get formulas which ain't
good in this case.

Is it possible to have a paste format except borders? I tired but can't get
it to go.

Thanks

"Gary''s Student" wrote:

From the Recorder:

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 4/22/2009 by James Ravenswood
'

'
Range("C2").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders,
Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub

--
Gary''s Student - gsnu200848


"LiAD" wrote:

Hi,

I am using a PasteSpecial Paste:=xlPasteFormats code to copy cells plus
format from one sheet to another. This code copies everything.

I do not want to copy the cell border format just contents, content size,
colour, format etc plus any filling in the cells.

Is there a condition I can set so it does not copy border formats?

Thanks

OK sorry stupid. I just had to change the order of the two sentences, do the
paste all first

Thanks

"LiAD" wrote:

Hi,

Unfortunately I need the paste values otherwise I get formulas which ain't
good in this case.

Is it possible to have a paste format except borders? I tired but can't get
it to go.

Thanks

"Gary''s Student" wrote:

From the Recorder:

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 4/22/2009 by James Ravenswood
'

'
Range("C2").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders,
Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub

--
Gary''s Student - gsnu200848


"LiAD" wrote:

Hi,

I am using a PasteSpecial Paste:=xlPasteFormats code to copy cells plus
format from one sheet to another. This code copies everything.

I do not want to copy the cell border format just contents, content size,
colour, format etc plus any filling in the cells.

Is there a condition I can set so it does not copy border formats?

Thanks