Decimal when transferring data to userform

[rakotonirinas]

Hello,

Upon transferring the data from a worksheet to a userform. The currency value has dropped but also, the real value with all decimals dropped when I format the textbox value and add the pound sign.

What I would like to achieve is to keep the real cell value with all its decimal to the userform without loosing any decimal but, as I formatted on the worksheet, showing only 2 decimal.

These are the two codes I came up so far

Please Login or Register  to view this content.

or

Please Login or Register  to view this content.

[ can be reduced to "£#,##0.00" but then will loose the four decimal value if applicable]

As you can see from the result below, the currency is missing on the textbox next to the May 2018 and on the second, unless I have the four decimal displayed, because if I formatted it to 2 then the real value with 4 decimal will be gone. So that will create discrepancy in the calculation. (e.g. textbox next to Jan 2019).

I very much appreciate your help on this. Thank you.

example.PNG

[Norie]

Use the Text property of the range(s) you are getting the value(s) from to get the formatted value and use that to populate the textbox.

Store the actual value, without currency symbol but with correct decimal places, in the Tag property of the textbox.

Please Login or Register  to view this content.

You could then use the value in the Tag property for any calculations.

[rakotonirinas]

Hi Norie,
Thank you for this. I think it did job.
Does it mean however that I have to do the same 'with' code for all 12 textboxes as per the image above or is there a better way of doing so?

[Norie]

You wouldn't necessarily need the With part, you could do it like this.

Please Login or Register  to view this content.

There's also the option of not using the Tag property to store the 'real' value and instead referring back to the cell that the textbox was populated from when you want to do calculations.

[rakotonirinas]

Thanks. I will try that.

I've written something like this for all 12 textboxes but I think the syntax is incorrect. Would it be appropriate?

Please Login or Register  to view this content.

[Sintek]

Please Login or Register  to view this content.

[rakotonirinas]

Thanks for everyone's help. It did work.