Formatting a copied number

[ChuckDrago]

Hi everyone... a quick question:

Given this line of code

Range("AF" & x + 2).Copy
Worksheets("Transfer").Range("G" & controw).PasteSpecial xlPasteValues

What do I have to add, in order to have the pasted value formated without decimals?

The copy from range value is 3.333333, although formatted as Number, "0". However, when copied over, despite Excel diplaying just a 3, the label program I am using to read the copied over value delivers the entire 3.333333 number, and I want just a 3.

Thanks a bunch

Chuck

 

[cgcamal]

Hi ChuckDrago,

You can try with:

Worksheets("Transfer").Range("G" & controw) = Round(Range("AF" & x + 2), 0)

Or give right click on cells you want to paste data and select format as number with "0" decimals.

Hope this helps

Regards

 

[ChuckDrago]

Muy bien, Cesar... Funcionó.

 

[cgcamal]

Por nada, un placer Chuck!, Nice to know it worked for you...

Saludos cordiales,

 

[ChuckDrago]

Retribuyo saludos y gracias (había olvidado agradecer en mio respuesta anterior!)