Change separator to comma

[Perbjo]

Hi

I'm struggling with comma vs dot - I live in Denmark, and we have it totaly opposite english in relation to decimal separator.
I've made a userform where I can add a car to a list by typing name of the car and price pr. month.
It works great exept the price which wont put a comma unless i use the period button on my keyboard.
I've search MrExcel and other fora but without a solution I could adapt.
Do any of you know what to do?

 

[RobP]

Hi,

would you be able to try Application.WorksheetFunction.Substitute(Range("B"&r).Value,",",".")

at the end of your code..

 

[RoryA]

Use CDbl not Val

 

[Perbjo]

Thanks RobP
Unfortunately it doesn't work - but maybe I add it wrong:

r = Range("A" & Rows.Count).End(xlUp).Row + 1
Range("A" & r).Value = WorksheetFunction.Proper(Me.cboCarName)
Range("B" & r).Value = Val(Me.cboCarPrMonth)
Range("B" & r).Value = Application.WorksheetFunction.Substitute(Range("B" & r).Value, ",", ".")

And if I just add Application.WorksheetFunction.Substitute(Range("B" & r).Value, ",", ".") it turns red and don't execute.

 

[Perbjo]

Use CDbl not Val

I don't even know what that means...

 

[RobP]

Hi,

I'm guessing your code stops at

Range("B" & r).Value = Val(Me.cboCarPrMonth)

Then, if you try indeed to use

Range("B" & r).Value = CDbl(Me.cboCarPrMonth)

as @RoryA suggested, it should go through, and then you don't need my extra line of code.

 

[Perbjo]

Hi,

I'm guessing your code stops at

Range("B" & r).Value = Val(Me.cboCarPrMonth)

Then, if you try indeed to use

Range("B" & r).Value = CDbl(Me.cboCarPrMonth)

as @RoryA suggested, it should go through, and then you don't need my extra line of code.

It gives me this error in relation to CDb1:

 

[RobP]

try CDbl (not CDB1)

 

[Perbjo]

try CDbl (not CDB1)

YES - I didn't see that Thanks a lot to you and Rory.