Concatenar textos no Excel com condições

[EDUARDO51]

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

[Visitante]

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

[EDUARDO51]

 

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 !!!!!