Problem with assigning whole numbers to array but preserving 2 decimal places

[WednesdayC]

Hi All

Please can someone help me. I am assigning a range to an array. The numbers (column 7) are all formatted to 2 decimal places, but when the numbers were written to the array, the numbers were coming through at 1, 2 or more decimal places, with whole numbers, not displaying any decimal places. I have managed to capture decimal numbers to 2 decimal places in the array, by capturing the result to a variable (probably not the best way to do this), formatting the variable and then adding to the array, but the whole numbers are staying as whole numbers, no matter what I try!

Any help, as always would be much appreciated, as I am really stuck.

Regards

Wednesday

 

[BSALV]

Sub ArrayWithDecimals()
     With Range("E14:L30")                                      'your range to 2 arrays
          aValues = Evaluate("=--text(" & .Address & ",""0.00"")")     'are again numbers but with only 2 decimals
          aTexts = Evaluate("=text(" & .Address & ",""0.00"")")     'are strings
     End With
End Sub

 

[WednesdayC]

Sub ArrayWithDecimals()
     With Range("E14:L30")                                      'your range to 2 arrays
          aValues = Evaluate("=--text(" & .Address & ",""0.00"")")     'are again numbers but with only 2 decimals
          aTexts = Evaluate("=text(" & .Address & ",""0.00"")")     'are strings
     End With
End Sub

Hi BSALV
Thank you for replying to me, although I don't completely understand it. I have never used Evaluate before. I am presuming that aValues and aTexts are regular arrays and I can loop through these? Do I need to use both?
I will try to work it out.
Regards
Wednesday

 

[WednesdayC]

Hi BSALV
Thank you for replying to me, although I don't completely understand it. I have never used Evaluate before. I am presuming that aValues and aTexts are regular arrays and I can loop through these? Do I need to use both?
I will try to work it out.
Regards
Wednesday

Hi BSALV
Recap - thank you so much!
The text version is working and keeping the trailing zeros.
You have been a huge help!

Regards
Wednesday