Este fórum está sendo desativado

[engrocha]

Bom dia!
Preciso de uma fórmula que liste as ocorrências usando como critério o dia, porém, sem repetir ocorrências iguais.
Mais detalhe e melhor compreensão do problema está no anexo.

Grato,
Rocha.

[FelipeMGarcia]

Amigo,

Veja se o que fiz lhe ajuda, caso queira agradecer, clique na mãozinha.

Eu usei a função UNIRTEXTO, caso não tenha, me avise, que mando a função personalizada (UDF) para que consiga usar.

Abs

[Deciog]

Cross Posted

https://www.clubedohardware.com.br/foru ... 3%AAncias/

Decio

[Jimmy]

Olá,

A solução anexa é por macro. Para aciona-la segure SHIFT+CTRL, e tecle Q.

Que tal colocar a quantidade de ocorrências dos repetidos?

Em vez de assim:
Elétrico / Mecânico / Falha Operador / Quebra Correia / Freio Danificado / Sujeira
assim:
Elétrico / Mecânico (2) / Falha Operador / Quebra Correia / Freio Danificado / Sujeira

Que tal fazer também uma tabela invertida: em vez de Dia X Ocorrências, fazer uma Ocorrência X Dias, para mostrar os defeitos mais recorrentes, e atuar sobre eles?

Jimmy San Juan

[engrocha]

[quote="FelipeMGarcia"]Amigo,

É quase isso... Veja na primeira linha a ocorrência Elétrica apareceu 2 vezes.
Preciso que as ocorrências sejam listadas desconsiderando as repetidas.

Grato,
Rocha.

[engrocha]

Jimmy, boa tarde!
Achei válido e funcional a sua representação em VBA, porém, ao tentar alterar o código para o mesmo colar os valores em outra guia não consegui desenvolver o raciocínio.

Pode alterar o mesmo por favor de modo a fazer conforme o novo modelo?

Desde já agradeço,
Rocha.

[FelipeMGarcia]

Amigo,

Veja se agora está do jeito que precisa, eu tive que usar coluna auxiliar pra fazer.

Caso queira agradecer, clique na mãozinha.

abs

[Jimmy]

Eu alterei de forma a separar as planilhas.

No início da macro há o código abaixo, que serva para definir os locais, tanto para o Bando de Dados, como para as Ocorrências.

Código: Selecionar todos

   'Locais da parte de Banco de Dados (BD)
    Set PlanBD = Sheets("BD")
    ColDiaBDad = "B"                                                  'Coluna de dias
    ColDefBDad = "D"                                                  'Coluna de defeitos
    LinIniBDad = 3
    LinFimBDad = PlanBD.Range(ColDiaBDad & Rows.Count).End(xlUp).Row  'Linha final de dias
    
   'Locais da parte de OCORrencias
    Set PlanOc = Sheets("Ocorrências")
    ColDiaOcor = "B"                                                  'Coluna de dias da relação agrupada
    ColOcoOcor = "C"                                                  'Coluna de ocorrências agrupadas
    LinIniOcor = 3
    LinFimOcor = PlanOc.Range(ColDiaOcor & Rows.Count).End(xlUp).Row  'Linha final de dias

Ali você especifica os nomes das planilhas, as colunas que contém as datas, os defeitos e as ocorrências, bem como a linha em que essas informações iniciam. A linha final é obtida automaticamente pela última célula preenchida das colunas de dias.

Que tal colocar a quantidade de ocorrências dos repetidos?

Em vez de assim:
Elétrico / Mecânico / Falha Operador / Quebra Correia / Freio Danificado / Sujeira
assim:
Elétrico / Mecânico (2) / Falha Operador / Quebra Correia / Freio Danificado / Sujeira

Que tal fazer também uma tabela invertida: em vez de Dia X Ocorrências, fazer uma Ocorrência X Dias, para mostrar os defeitos mais recorrentes, e atuar sobre eles?

Você não comentou sobre isso.

Jimmy San Juan