Trim to Remove Space at the end from a Userform Text Box

[menor59]

Hello all...I have the following code, which works Great, assigned to a Text box on my userform...

Private Sub txtClientDoor_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    txtClientDoor.Value = StrConv(txtClientDoor.Value, vbProperCase)
End Sub

This keeps people from doing:

The QuisK BRown FOX juMPs

To

The Quick Brown Fox Jumps

But as usual Users keep putting a Space at the end..

I need to remove that extra SPACE at the end of the Value so that:

The Quick Brown Fox Jumps_

"_" = Space bar strike

to

The Quick Brown Fox Jumps

PLease

 

[Domenic]

You can use the RTrim function to remove trailing spaces . . .

Private Sub txtClientDoor_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    txtClientDoor.Value = StrConv(RTrim(txtClientDoor.Value), vbProperCase)
End Sub

By the way, the Trim function removes both leading and trailing spaces. So you may want to use Trim instead of RTrim, just in case.

Hope this helps!

 

[menor59]

You can use the RTrim function to remove trailing spaces . . .

Private Sub txtClientDoor_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    txtClientDoor.Value = StrConv(RTrim(txtClientDoor.Value), vbProperCase)
End Sub

By the way, the Trim function removes both leading and trailing spaces. So you may want to use Trim instead of RTrim, just in case.

Hope this helps!

Thats actually better....Also!!! Thank you!

 

[Domenic]

You're very welcome, cheers!

 

[menor59]

Question


CAn it be Modified to Remove double, triple spaces Between TEXT also??

so that:

The (2 spaces Here) quick (4 SPACES here) Brown fox

returns

The Quick brown fox??

Basically keep 1 space between text?

 

[Rick Rothstein]

Try this...

txtClientDoor.Value = StrConv(Application.Trim(txtClientDoor.Value), vbProperCase)

 

[menor59]

Try this...

txtClientDoor.Value = StrConv(Application.Trim(txtClientDoor.Value), vbProperCase)

Wonderful...Thank you sir!!!