Espaço no fim de TexBox

2024 - VBA & Macros

Post Recente por mdosmagos 10 anos atrás

4 Posts

3 Usuários

0 Reactions

1,105 Visualizações

RSS

mdosmagos

(@mdosmagos)

Posts: 78

Trusted Member

Topic starter

Bom dia!

Tenho um cadastro de clientes, tem usuários que costumam deixar um espaço no fim do nome do cliente (TexBox1), como utilizo esse nome do cliente para criar pastas de sistema, o espaço acaba atrapalhando, pois dá erro no Windows devido a não ser permitido espaço no fim do nome de uma pasta, queria saber como seria o código para verificar a existência do espaço no final do TextBox1 e excluir ele se existente... Digamos, na hora que salvo o cadastro é feita essa validação...

Muito obrigado desde já....

Postado : 25/07/2014 5:33 am

Andersonjs

(@andersonjs)

Posts: 13

Active Member

Bom dia!

Use o Trim

Sub TiraEspaco()
Dim NomeSemEspaco As String
NomeSemEspaco = Trim(" João da Silva ")
MsgBox "|" & NomeSemEspaco & "|"
End Sub

Postado : 25/07/2014 6:01 am

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

mdosmagos,

Bom Dia!

Antes de salvar ou utilizar o valor do TextBox para qualquer fim, use a função TRIM do VBA para retirar espaços antes e depois do valor do TextBox. Também pode ser utilizada a função LTRIM para retirar espaços à esquerda do valor ou RTRIM para tirar espaços à direita do valor.

Mais ou menos isso:

TextBox1.Text = Trim(TextBox1.Text)

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 25/07/2014 6:02 am