Concatenar automaticamente com critério

2024 - Fórmulas Avançadas - Funções Microsoft Excel

Post Recente por deciog 6 anos atrás

5 Posts

5 Usuários

0 Reactions

1,788 Visualizações

RSS

FragosoJP

(@fragosojp)

Posts: 101

Estimable Member

Topic starter

Boa tarde

Preciso de uma ajuda tenho uma planilha que na coluna "A" tem a opção de colocar "OK" e na coluna "B" estao os nomes de documentos.

a função que eu to tentando criar é que todo vez que tiver OK na coluna A , automaticamente na cecula "D1" os doc da Coluna B vão sendo concatenando automaticamente.

tentei fazer a formula =SE porem não tive sucesso, mas se alguem tiver alguma outra ideia para tentar fazer funcionar fico grato.

Editado por Patropi:
Conforme as regras do fórum não é permitido usar no título palavras como ajuda, e na internet todo o texto em maiúscula é grito.
O titulo deve ser um resumo da dúvida e não a sugestão de formula.
Facor ler as regras do fórum.

Postado : 19/07/2018 12:31 pm

carlosrgs

(@carlosrgs)

Posts: 631

Prominent Member

Boa tarde com a fórmula matricial da para ordenar, mas concatenar ficaria uma fórmula gigante!

_______________________________________________________________________________________________
Carlos Santos
* Marque o tópico como Resolvido se foi solucionado seu problema.

Postado : 19/07/2018 1:40 pm

sandroh

(@sandroh)

Posts: 40

Eminent Member

Boa tarde, A matricial seria o jeito mais fácil mesmo, ou uma macro que varresse as células... Pelo que vi, na coluna "G" já dá o que você quer, certo?

Caso tenha resolvido, não esqueça de clicar na mãozinha ao lado da ferramenta "citar" e fechar o tópico

Postado : 19/07/2018 1:53 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Não sei se entendi, assim sendo experimente (copie o codigo aBAIXO EM um modulo VBA:

Function Concat3(myRange As Range, Optional myDelimiter As String = ";")
Dim r As Range
Application.Volatile
For Each r In myRange
    If Len(r.Text) > 0 And UCase(r.Offset(0, -1).Value) = "OK" Then
        Concat3 = Concat3 & r & myDelimiter
    End If
Next r
    If Len(myDelimiter) > 0 Then
        Concat3 = Left(Concat3, Len(Concat3) - Len(myDelimiter))
    End If
End Function

Em D1=concat3(B17:B20)

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

Postado : 20/07/2018 5:57 am