Texbox enter - linh...
 
Notifications
Clear all

Texbox enter - linhas em branco

2 Posts
2 Usuários
0 Reactions
808 Visualizações
(@andresb)
Posts: 0
New Member
Topic starter
 

Boa tarde!

Tenho um texbox em um formulário, com a propriedade EnterKeyBehavior como True para o usuário pular linha caso queira.

Tem como, caso o usuário dê um ENTER sem querer e não escreva nada, em algum momento, na saída do textbox, ou no comando que alimenta a planilha, transfira para a planilha apenas o texto escrito, sem a linha em branco??

Do jeito que está, é transferido para a planilha não só o texto, mas também as linhas em branco que foram criadas com o ENTER (sem querer).

Obrigado.
André

 
Postado : 19/03/2015 10:11 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Andre, acredito que usando a função TRIM resolva, ela retira os espaços no inicio e no final de textos, faça um teste se ela interpretará a linha a mais tambem.

Se funcionar, voce pode estar adicionando ao evento Exit do textbox para limpar os espaços antes de lançar na planila.

Fonte : http://excelevba.com.br/espaco-vba/

Sub RetiraEspaço()
    Dim Frase As String

    Frase = " Vou testar o código  "
    'Observe que a frase acima tem espaço no inicio e final do texto
    'Entao vamos retirar os espaços e apresentar a mensagem corrigida, ou seja tratar espaços no vba
    
    MsgBox Trim(Frase) 'Ao exibir irá mostrar: ”Vou testar o código“

End Sub

Obs.: Ltrim e RTrim, também retiram espaços extras, entretanto o primeiro retira esquerda e o segundo da direita.

[]s

 
Postado : 25/03/2015 6:32 am