Hi All,

I am creating a basic userform that enables a user to input currency
values in a cell.
Basically the form has buttons for the numbers 0-9 and also for
"." (decimal point)

I have got the following code for the decimal point, however when the
button is clicked, nothing happens.

Private Sub CommandButtonDP_Click()
ActiveCell.Value = ActiveCell.Value & "."
End Sub

On the number buttons I have got the same code, just with the relavent
number rather than "." and they work fine.

Could anybody please tell me why this is happening?

Many thanks,
Mark

This is a case of Excel trying to be helpful and assuming that you do not
really want a nonsensical number of 12.< , "correcting" it to 12<.
Using a cell, you will need to format it as Text for this approach to work.
This may have repercussions on your other cells though, that you may have to
allow for.
Maybe use a TextBox instead, which already deals in...er text.

NickHK

"MarkHear1" wrote in message
ps.com...
Hi All,

I am creating a basic userform that enables a user to input currency
values in a cell.
Basically the form has buttons for the numbers 0-9 and also for
"." (decimal point)

I have got the following code for the decimal point, however when the
button is clicked, nothing happens.

Private Sub CommandButtonDP_Click()
ActiveCell.Value = ActiveCell.Value & "."
End Sub

On the number buttons I have got the same code, just with the relavent
number rather than "." and they work fine.

Could anybody please tell me why this is happening?

Many thanks,
Mark

NickHK wrote:
This is a case of Excel trying to be helpful and assuming that you do not
really want a nonsensical number of 12.< , "correcting" it to 12<.
Using a cell, you will need to format it as Text for this approach to work.
This may have repercussions on your other cells though, that you may have to
allow for.
Maybe use a TextBox instead, which already deals in...er text.

NickHK

"MarkHear1" wrote in message
ps.com...
Hi All,

I am creating a basic userform that enables a user to input currency
values in a cell.
Basically the form has buttons for the numbers 0-9 and also for
"." (decimal point)

I have got the following code for the decimal point, however when the
button is clicked, nothing happens.

Private Sub CommandButtonDP_Click()
ActiveCell.Value = ActiveCell.Value & "."
End Sub

On the number buttons I have got the same code, just with the relavent
number rather than "." and they work fine.

Could anybody please tell me why this is happening?

Many thanks,
Mark


Thank you nick,

I have now put it into the macro to change the cell format to text
when the form is used and then back to currency when the form is
closed, however it doesn't change the cell back to currency. I have to
begin to edit the cell then change the selected cell and this changes
the format. Do you know how I can change this?

Thank you,
Mark