Userform Textbox to store value in excel the number losing decimal

**Jaco Smit** · 06-26-2014, 04:14 AM

Hi I really needs help
If I use the value 0,292 it transfers the correct value 0,292 but in text format and not in number format.
If I use the value 4,678 it transfers the incorrect value 4 678 without the comma and in number format.

Dim lastrow As Currency
lastrow = Sheets("Fire").Range("A" & Rows.Count).End(xlUp).Row
Cells(lastrow + 1, "Q").Value = Format(Me.[txtRate].Value, "##0.000")

Moderator Note:

Pls use code tags around your codes.

**romperstomper** · 06-26-2014, 04:47 AM

Try using CDbl:

Cells(lastrow + 1, "Q").Value = CDbl(Me.[txtRate].Value)

**Jaco Smit** · 06-26-2014, 05:56 AM

Hi, I tried it and the result was:
If I use 0.262 it shows in the excel cell 0, instead of 0.262
If I use 4.678 it shows in the excel cell 5 instead of 4.678

**Jaco Smit** · 06-26-2014, 05:52 AM

Hi, I tried it, but the result remains the same

**romperstomper** · 06-26-2014, 05:57 AM

Is the cell formatted to hide decimal places?
What are your regional settings set to?

**Norie** · 06-26-2014, 05:58 AM

Try using Val.

Dim lastrow As Currency
lastrow = Sheets("Fire").Range("A" & Rows.Count).End(xlUp).Row
Cells(lastrow + 1, "Q").Value = Val(Me.[txtRate].Value)
Cells(lastrow + 1, "Q").NumberFormat = "##0.000"

**Jaco Smit** · 06-26-2014, 07:23 AM

I’m sorry but it’s still not working. What it does, if there is a o before the comma (0.262) it works fine, the moment you use a number with 1 or more before the comma (1.2568 or 4.678) then it move the comma to the back of the number (4 678.0)