Fóruns
Microsoft Excel - 2...
2024 - Fórmulas Ava...
Concatenar automati...
 
Notifications
Clear all

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,764 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
(@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
(@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
 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
deciog
 deciog
(@deciog)
Posts: 0
Trusted Member
 

FragosoJP

Se seu Excel for superior 2010 então usa desta forma

Se foi útil, clique na mãozinha que fica do lado da ferramenta Citar, é uma forma de agradecimento

Decio

Marque o tópico como Resolvido se foi solucionado seu problema.
Brasil, São Paulo - SP
Décio Gassi

 
Postado : 20/07/2018 10:37 am
Forum Jump:
  Tópico Anterior
Próximo Tópico