Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Espaço no fim de Te...
 
Notifications
Clear all

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,098 Visualizações
RSS
mdosmagos
 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
(@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
mdosmagos
 mdosmagos
(@mdosmagos)
Posts: 78
Trusted Member
Topic starter
 

Perfeito... Muito obrigado...

 
Postado : 25/07/2014 6:19 am
Forum Jump:
  Tópico Anterior
Próximo Tópico