Define Case as "#.##%" 2

[RP1America]

I am in the process of creating a userform. A textbox on the form is used for a percentage. The textbox is initialized as "%".

The following code results in the textbox being able to be exited in percentage format, as well as if they blank out the textbox or take no action prior to exiting the textbox, it returns to "%".

What I need is to know how to define within the case if the user gives the textbox a value, say "4.05%", then exits the textbox...then for whatever reason reenters and reexits without changing anything. Therefore "4.05%" is not currently defined within my case. Is it possible to do this with some sort of numeric variable (e.g. "#.##%")? If so, how would it be displayed?

Thanks for the help!!

Private Sub UserForm_Initialize()

    txtRT11.Value = "%"

End Sub


Private Sub txtRT11_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    Select Case txtRT11
        Case ""
            txtRT11 = "%"
        Case "%"
            txtRT11 = "%"
        Case Else
            txtRT11.Text = Format(txtRT11 * 0.01, "percent")
    End Select

End Sub

 

[SkipVought]

Hi,

        Case Else
            txtRT11.Text = Format(txtRT11 / 100, "#.00%")

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[RP1America]

Thanks for the reply Skip!

Unfortunately, that did not work.

Same error occurs and that line is called into question. It is still not accepting me exiting, I am assuming, since the % character is present with a value in front of it.

Any other ideas?

Thanks!

 

[SkipVought]

please explain in more exacting detail, as it worked perfectly in my own test.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[RP1America]

Here is my code...

Private Sub txtRT11_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    Select Case txtRT11
        Case "", "%"
            txtRT11 = "%"
        Case Else
            txtRT11.Text = Format(txtRT11 / 100, "#.00%")
    End Select

End Sub

...if a value is already entered into the textbox, Ex: 4.05%, then the textbox is reentred and reexited without any change being made, I get the following error message, which upon 'debugging' highlights the line of code that you suggested.

"Run-time error '13':
Type mismatch

I have even attempted disabling any other code regarding this textbox and still get the error.

 

[SkipVought]

        Case Else
            If IsNumeric(txtRT11.Value) Then _
                txtRT11.Text = Format(txtRT11 / 100, "#.00%")

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[combo]

Private Sub txtRT11_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    Select Case txtRT11
        Case "", "%"
            txtRT11 = "%"
        Case Else
            txtRT11.Text = Format(CDbl(Replace(txtRT11, "%", "")) / 100, "#.00%")
    End Select

End Sub

combo

 

[RP1America]

Thanks Skip!

Works perfectly!

 

[SkipVought]

Nice one, Glenn ==> [purple]*[/purple]

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[combo]

Glenn?

combo

 

[SkipVought]

Geez, I can't attribute THAT one to a typo! THAT was a combo error!

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}