DIVIDIR NOME EM 2 LINHAS
Olá amigos, dúvida simples porém não sei 
Gostaria de dividir o nome do cliente em duas linhas, porém sem prejudicar.
Ex: ANTONIO CARLOS MARTINS DE OLIVIERA
ANTONIO CARLOS MARTINS DE
OLIVEIRA
Gostaria de dividir o nome do cliente em duas linhas, porém sem prejudicar.
Ex: ANTONIO CARLOS MARTINS DE OLIVIERA
ANTONIO CARLOS MARTINS DE
OLIVEIRA
Dim nome As String
Dim nomesplitado
Dim retorno As String
nome = [Ô]ANTONIO CARLOS MARTINS DE OLIVIERA[Ô]
nomesplitado = Split(nome, [Ô] [Ô])
For i% = LBound(nomesplitado) To UBound(nomesplitado) - 1
retorno = retorno & nomesplitado(i%) & [Ô] [Ô]
Next i%
retorno = retorno & vbNewLine & nomesplitado(UBound(nomesplitado))
MsgBox retorno
Dim nomesplitado
Dim retorno As String
nome = [Ô]ANTONIO CARLOS MARTINS DE OLIVIERA[Ô]
nomesplitado = Split(nome, [Ô] [Ô])
For i% = LBound(nomesplitado) To UBound(nomesplitado) - 1
retorno = retorno & nomesplitado(i%) & [Ô] [Ô]
Next i%
retorno = retorno & vbNewLine & nomesplitado(UBound(nomesplitado))
MsgBox retorno
Olá amigo !
Testando aqui e esta dando expected array e mostrando LBOUND como causa..
Testando aqui e esta dando expected array e mostrando LBOUND como causa..
LBound, retorna o menor item sequencial de um array, ou seja, o primeiro. Pela mensagem de erro, o parâmetro que vc passou não é um array, mostre como vc fez...
Tópico encerrado , respostas não são mais permitidas