Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Concatenar Células
 
Notifications
Clear all

Concatenar Células

 
2024 - VBA & Macros
Post Recente por juoli 8 anos atrás
6 Posts
3 Usuários
0 Reactions
1,137 Visualizações
RSS
 juoli
(@juoli)
Posts: 0
New Member
Topic starter
 

Pessoal, boa tarde!

Por gentileza, alguém pode ajudar preciso concatenar células de uma mesma coluna com critério em VBA.

Por exemplo na célula A1 tenho uma sequência de texto e preciso juntar as células conforme um critério, ou seja um valor:

A1
910
1
2
3
910
4
3
2

Na coluna B deverão exibir os resultados, e assim por diante:
910 1 2 3
910 4 3 2

Em anexo tem o exemplo
Muito obrigada.

 
Postado : 15/10/2016 12:55 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite juoli

Seja bem-vinda ao fórum!

Movi teu tópico para VBA & Macros,que é o assunto da tua dúvida, pois onde você havia postado é exclusivo para a apresentação dos novos usuários do fórum.

Para facilitar a tua participação no fórum, sugiro tomar conhecimento do conteúdo dos links abaixo:
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s

 
Postado : 15/10/2016 3:57 pm
 DJunqueira
(@djunqueira)
Posts: 0
New Member
 

Se a sua versão do Excel for a 2016 vc poderia alcançar o resultado desejado com fórmula.

 
Postado : 15/10/2016 4:44 pm
 juoli
(@juoli)
Posts: 0
New Member
Topic starter
 

Boa noite, DJunqueira.

Infelizmente meu Excel é a versão 2010 e no trabalho utilizo a versão 2013 onde preciso desenvolver o código e por fórmula não consegui chegar ao resultado.

Por gentileza, saberia informar se possuí outra alternativa.

Muito obrigada

 
Postado : 15/10/2016 6:44 pm
 juoli
(@juoli)
Posts: 0
New Member
Topic starter
 

ao abrir a planilha exibe a mensagem de erro : #NOME?

 
Postado : 15/10/2016 6:46 pm
 juoli
(@juoli)
Posts: 0
New Member
Topic starter
 

Boa noite,

Consegui resolver através da função do VBA.

No lugar de _xlfn.TEXTJOIN, alterei para uma função criada no VBA

=SE(A1=910;VALORESDOVETOR(DESLOC(A1;0;0;SEERRO(CORRESP(910;A2:A18;0);20)));"")

No lugar do

Muito obrigada.

 
Postado : 15/10/2016 7:02 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico