Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Quantidade de carac...
 
Notifications
Clear all

Quantidade de caracteres específica

 
2024 - VBA & Macros
2 Posts
1 Usuários
0 Reactions
513 Visualizações
RSS
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde pessoal,

Estou usando um código VBA para copiar e concatenar algumas celulas, e gerar um arquivo TXT.
A dúvida é a seguinte, no campo nome, o numero maximo de caracteres é 40.
Então, para nomes maiores que 40 caracteres a formula tem que cortar o final do nome deixando o máximo de 40.
Para nomes menores que 40 caracteres, a formula tem que incluir espaços em branco (" ") até chegar a 40 caracteres.

Como fazer isso?

 
Postado : 31/07/2012 12:23 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Como não deu maiores detalhes do codigo que está utilizando;
tente algo assim:

Sub veja()
If Len(Cells(linha, 1)) > 40 Then
cpt = Left(Cells(linha, 1), 40)
Else
cpt = Cells(linha, 1) & Application.WorksheetFunction.Rept(" ", 40 - Len(Cells(linha, 1)))
End Sub
 
Postado : 31/07/2012 3:17 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico