range.Value = a() chopping off decimals

[foxguy]

When I use this:

myRange.Value = a()

If a() has numbers with 3 or more decimals, only 2 get put into myRange.

How can I get all the decimals from an array into a range?

[Chance2]

Are you sure it is only pasting two decimal points or is your cell formatted for two decimal points?

[foxguy]

It's only pasting 2 decimals. I have the cells formatted for 3 decimals.

[DonkeyOte]

might help if you provide a small sample file (with VBA in place) that illustrates the problem in action - I for one can't replicate... ie:

Dim a: a = Array(10.234, 11.1)
Range("A1").Resize(UBound(a) + 1) = Application.Transpose(a)

works as expected

[romperstomper]

How did you declare and populate a()? If you assigned a currency formatted range to a, you could get that behaviour.

[foxguy]

That's what it was. I populated the array from a range formatted currency 4 decimals.
It bothers me that even though the array had 4 decimals in it, it only pasted 2. Seems like a bug in Excel.

[romperstomper]

Nah, it's a 'feature'...
You should also be able to use the Value2 property to get doubles passed to the array instead.

[foxguy]

Nah, it's a 'feature'...
You should also be able to use the Value2 property to get doubles passed to the array instead.

Never used Value2 before. Looks like it solves the problem, so I don't have to worry about how the range is formatted.