Entering percentages in user form text boxes

[scoha]

From the posts this issue seems like a real bug-bear.

I have a user form where I want users to type in a number representing a percentage and for the form to display that as a percentage (ie type in "35" and the text box shows "35%".

I have used this code:

Private Sub txtRPC_Exit(ByVal Cancel As MSForms.ReturnBoolean)
txtRPC.Value = Format(txtRPC / 100, "0.0%")
EnableSave
End Sub

but I get a type mismatch error - I have no idea why as i am a bit of a VBA newbie.

My text box is txtRPC.

Looking forward to enlightenment

 

[Norie]

Well the only way I can generate that error is if the % is actually entered.

One way round that might be this.

Private Sub txtRPC_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    txtRPC.Value = Format(Val(txtRPC) / 100, "0.0%")
End Sub

 

[scoha]

Thanks Norie - that seems to have fixed it