Ir ao conteúdo
  • Cadastre-se
EDUARDO51

RESOLVIDO Concatenar textos no Excel com condições

Recommended Posts

em c2 tenho valor 
em c3 branco (null)
em c4 branco (null)
 
concatenar F1 , F2 E FN... enquanto  achar branco (null)  a partir da da coluna c3
 
a2=31
a3=null
a4=null
b2=1
b3=null
b4=null
d2=99001
d3=null
d4=null
E2=6.668,70
E3=NULL
E4=NULL
 
 
F2=NF:.171 * COD FOR:. * 9742 * DCLOUDWARE CONS
F3=ULTORIA EM INFORMATICA LTDA * RECLASSIFICAÇÃO
F4= DOC 1759 15/05/2014 * 19/3/2014
 
 Gostaria de de concatenar F2;F3;FN..... Enquanto a partir de c2 for branco (null)
 
Este é o detalhe , acredito que exista um código VBA  ou uma função para esta situação , já procurei mas não encontrei .
 
 Se alguém tiver esta informação por favor me ajude .
 
 Desde já agradeço
 
Pessoal Boa tarde  preciso de uma ajudinha no EXCEL .

 

Tenho uma planilha gerado por um sistema e gostaria de concatenar um texto  de uma linha enquanto existir  valor "branco" em outra coluna :

 

exemplo :

 

 

DIA LANC. CONTA N.DOC VALOR HISTORICO 31 1 5087 99001     6.668,70 NF:.171 * COD FOR:. * 9742 * DCLOUDWARE CONS           ULTORIA EM INFORMATICA LTDA * RECLASSIFICAÇÃO            DOC 1759 15/05/2014 * 19/3/2014 31 2 7018 99001   10.802,38 NF:.129 * COD FOR:. * 9796 * M. SANTOS DIVISÓ           RIAS ME * ESTORNO LANçAMENTO INDEVIDO  * 31/1           2/2014

 

DIA          COLUNA A

LANC      COLUNA B

CONTA   COLUNA C

N.DOC    COLUNA D

VALOR    COLUNA E

 

HISTORICO COLUNA F

 

Queria concatenar a coluna "F"  até A Próxima  Célula da coluna "C" com valor.

 

Obs: O texto da coluna "F" pode conter mais de 5 linhas.

 

Por favor se alguém puder ajudar desde já agradeço

 

sds

Eduardo

 

segue planilha :

concatenar.xlsx

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá, Eduardo.

 

Se quiser experimentar esta solução que utiliza macro, instale o código abaixo em um módulo comum, assim:
1. copie o código daqui
2. a partir da planilha em que estão os dados tecle 'Alt+F11' para acessar o editor de VBA
3. no menu do editor >> Inserir >> Módulo
4. cole o código na janela em branco que vai se abrir
5. feito! 'Alt+Q' para retornar para a planilha e testar

para rodar o código:
6. tecle 'Alt+F8' >> selecione a macro correspondente >> Executar, ou insira um botão na planilha e vincule-o à macro ou vincule-a a um atalho de teclado (Alt+F8 > Opções).


 

Sub ConcatenaHIST() Dim LR As Long, k As Long, r As String, x As Long  LR = Cells(Rows.Count, 6).End(xlUp).Row   x = 1   For k = 2 To LR    r = Cells(k, 6)     Do While Cells(k + x, 3) = ""      r = r & Cells(k + x, 6): x = x + 1     If k + x > LR Then Cells(k, 7) = r: Exit Sub     Loop    Cells(k, 7) = r: r = "": k = k + x - 1: x = 1   Next kEnd Sub
  • Curtir 2

Compartilhar este post


Link para o post
Compartilhar em outros sites

 

Olá, Eduardo.

 

Se quiser experimentar esta solução que utiliza macro, instale o código abaixo em um módulo comum, assim:

1. copie o código daqui

2. a partir da planilha em que estão os dados tecle 'Alt+F11' para acessar o editor de VBA

3. no menu do editor >> Inserir >> Módulo

4. cole o código na janela em branco que vai se abrir

5. feito! 'Alt+Q' para retornar para a planilha e testar

para rodar o código:

6. tecle 'Alt+F8' >> selecione a macro correspondente >> Executar, ou insira um botão na planilha e vincule-o à macro ou vincule-a a um atalho de teclado (Alt+F8 > Opções).

 

Sub ConcatenaHIST() Dim LR As Long, k As Long, r As String, x As Long  LR = Cells(Rows.Count, 6).End(xlUp).Row   x = 1   For k = 2 To LR    r = Cells(k, 6)     Do While Cells(k + x, 3) = ""      r = r & Cells(k + x, 6): x = x + 1     If k + x > LR Then Cells(k, 7) = r: Exit Sub     Loop    Cells(k, 7) = r: r = "": k = k + x - 1: x = 1   Next kEnd Sub

É isto mesmo , resolvido muito obrigado !!!!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×