Notifications
Clear all

Concatenar Células

6 Posts
3 Usuários
0 Reactions
1,161 Visualizações
(@juoli)
Posts: 4
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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

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

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

Se sua dúvida foi respondida marque o tópico como RESOLVIDO usando o botão com marca verde.

 
Postado : 15/10/2016 4:44 pm
(@juoli)
Posts: 4
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)
Posts: 4
New Member
Topic starter
 

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

 
Postado : 15/10/2016 6:46 pm
(@juoli)
Posts: 4
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