Dynamic Decimal Placement

[Av8tordude]

I using this code that formats the number as I type. I would like to make more dynamic to be able to choose the format base on a variable enter in another textbox. Currently the format is hard coded to two zeros after the decimal. I would like to enter (ex. 3) and the format would show $0.000

Any suggestions?

Thanks

Dim v As String


Select Case Len(tbOPrice)
    Case 1
        tbOPrice = Format(tbOPrice, "$0\.00")
    Case Is > 1
        v = Replace(tbOPrice, "$", "")
        v = Replace(v, ".", "")
        tbOPrice = Format(CCur(v) / 100, "$#,#0.00")
    Case Else
End Select

 

[Akuini]

Try this:

Sub tryB()
x = tbOPrice
        V = Replace(x, "$", "")
        x = Replace(V, ".", "")
        z = WorksheetFunction.Rept(0, textbox1)
        tbOPrice = Format(x, "$#,#0." & z)

End Sub

I have to ask:
You have this line: Replace(V, ".", "")
It means that you want to remove "." from the tbOPrice (before you convert the format), so if you type 1.2 then it will be 12, is it correct?

 

[Av8tordude]

After deciphering what the code was doing, I figure it out how to merge your code with the original code. I reserched what Rept function does and this is what I put together. The red highlighted part needed it to be in parenthesis.

Thank you immensely for your help. Greatly appreciated it!

Private Sub tbOPrice_Change()Dim v As String


Z = WorksheetFunction.Rept(0, tbEFSet)


Select Case Len(tbOPrice)
    Case 1
        tbOPrice = Format(tbOPrice, "$0\." & Z)
    Case Is > 1
        v = Replace(tbOPrice, "$", "")
        v = Replace(v, ".", "")
        tbOPrice = Format([COLOR=#ff0000][B]v / (1 & Z)[/B][/COLOR], "$#,#0." & Z)
    Case Else
End Select
End Sub

 

[Akuini]

You're welcome, glad to help, & thanks for the feedback.