[RESOLVED] Userform Textbox in percentage format

[Spitfire122]

I have a textbox in a userform so when the user keys in a number, it automatically converts it to a percentage. However, when the user keys in a 0, nothing populates in the textbox. See my code below and let me know what I need to do in order to allow the value 0 to be entered.

Private Sub txtratio_Change()
txtratio.Value = Format(Val(txtratio.Value) / 100, "##%")
txtratio.SelStart = Len(txtratio.Value) - 1
     
End Sub

[Ecniv]

Private Sub txtratio_Change()
  txtratio.Value = Format(Val(txtratio.Value) / 100, "#0%")
  txtratio.SelStart = Len(txtratio.Value) - 1
End Sub

Use #0% (see above)

[Spitfire122]

Thanks Enciv

[pstraton]

I know this is an old thread, but I found it while trying to debug a different root cause for the same symptom. So I'm posting my version of the problem and its solution for others who may wander in here with similar versions of this issue:

If the Textbox control has its LinkedCell (or ControlSource) property set to refer to a worksheet cell, or if VBA code explicitly copies data to and from a worksheet cell, then the problem may be that Excel’s cell formatting system is overriding the Textbox’s value format. The fix for this problem is to ensure that the targeted LinkedCell (or ControlSource) cell, or the explicitly written/read cell, is formatted to Text format (“@”) or Percentage format (“0.00%”, “#%”, etc.).