pastespecial question

[Gary Keramidas]

i want to paste values and formats, this option seems to be missing.

so, i if use this to copy the values
Workbooks(CurBook).Worksheets("sheet1").Range("c" & firstrow).PasteSpecial
xlValues
and then run this right after
Workbooks(CurBook).Worksheets("sheet1").Range("c" & firstrow).PasteSpecial
xlFormats

it seems to work, but also seems to slow things down a little.
i realize i could copy the values and then reformat the sheet, but ti seems
like a waste.

is there another way to combine the 2 options i want?

 

[Bob Phillips]

If you have XL2002 there is an xlPasteValuesAndNumberFormats constant that
you can use.

 

[Gary Keramidas]

xl2003, bob.

so is this the best wat with xl2003?

 

[Dave Peterson]

I think Bob meant to say xl2002 or higher.

xl2003, bob.

so is this the best wat with xl2003?

 

[Gary Keramidas]

ok, i need cell formats, colors. borders , etc.

 

[Dave Peterson]

do two .pastespecial's right in a row.

something.copy
someotherrange.pastespecial paste:=xlpastevalues
someotherrange.pastespecial paste:=xlpasteformats

Or some combination of what you need.

 

[Gary Keramidas]

that's what i ended up doing, just wondered if there was another way.

thanks for confirming