Selection.PasteSpecial

plsh · #1 (**permalink**) 12-01-11, 09:13

Good day,

I have a spreadsheet with a Macro.
My code is as follows:
Range("Z4:Z29").Select
Selection.Copy
Range("AC4").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

All fields Z4:Z29 and AC4 range are formatted as Number with 2 decimals yet after the macro runs and pastes the values from Z4:Z29 they appear to be formatted as text and a little block appears that says:
"The number in this cell is formatted as text or preceded by an apostrophe"

Please can you help?

Colin Legg · #2 (**permalink**) 12-01-11, 17:58

Hi,

Try this:

Code:

Range("Z4:Z29").Copy
Range("AC4").PasteSpecial Paste:=xlPasteValuesAndNumberFormats

plsh · #3 (**permalink**) 12-02-11, 03:30

That also doesn't work, same outcome as before unfortunately.

Colin Legg · #4 (**permalink**) 12-02-11, 05:01

Hmmm... are you sure that Z4:Z29 aren't numbers formatted as text too? It'd be great if you would zip and attach your workbook?

plsh · #5 (**permalink**) 12-08-11, 03:13

Yes I am sure. I have even formatted the cells as numbers again just to make sure. I won't be able to zip and upload, network constraints I am afraid.

Colin Legg · #6 (**permalink**) 12-08-11, 05:30

Hi,

To be honest, I'm not sure how that's happening then. All I can suggest is an alternative way of copying across the numbers and hope that it works for you...

Code:

With Range("AC4:AC29")
    .NumberFormat = Application.International(xlGeneralFormatName)
    .Value2 = Range("Z4:Z29").Value2
End With

Internet Services

Web Development

Digital Marketing

Consumer Tech