Chnage code to use PasteSpecial value

redspanna · Jun 14, 2015

Code:

    s2.Range("A" & rng2).Resize(1, cols) = c.Resize(1, cols).Value

so instead of just pasting the 'value' I would like the following 'format'

Code:

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

how can the first code be change please?

RudiS · Jun 14, 2015

Try this:

Code:

c.Resize(1, cols).Copy
s2.Range("A" & rng2).PasteSpecial Paste:=xlPasteValuesAndNumberFormats

redspanna · Jun 14, 2015

Looks good

Thanks