Combine two vba code snippets

[shaju]

Hello all,

I have a rather big area (A1:CJ311) with some cells having Borders on all sides, some cells collectively have a thick box border etc. Most of the cells have formulae in them. I want to copy the whole range("A1:CJ311") to another location with just the bordering formats of the cells and their values, not the formulae in them.
The following codes show what I want, but is there a way to combine both of the them.

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= xlNone, _
SkipBlanks:=False, Transpose:=False
TIA

 

[shaju]

Bump.

 

[Fluff]

You will need to do it as you have done.

 

[shaju]

Thank you Fluff. The code was generated through macro recorder and edited . And it really suits me. Trying to shorten it down. That’s all. Once again thanks to you for looking into this matter.

 

[Fluff]

You can slim it down slightly like

With Selection
   .PasteSpecial xlPasteFormats
   .PasteSpecial xlPasteValuesAndNumberFormats
End With

But they still need to be done separately.

 

[shaju]

Once again Thank you Fluff. Shortening down the code also helps.

 

[Fluff]

Glad to help & thanks for the feedback