Notifications
Clear all

Fórmula para buscar registros distintos

4 Posts
2 Usuários
0 Reactions
574 Visualizações
(@gabrielmp)
Posts: 0
New Member
Topic starter
 

Estou procurando uma fórmula que permita que eu pegue a quantidade de itens distintos de acordo com algum critério e jogue em outra planilha.

Exemplo:
Col1 Col2
A Telecom
B Siderurgica
B Telecom
A Bens de Consumo
C Siderurgica
B Telecom

Basicamente o que eu preciso é que de acordo com a col1, eu tenha a quantidade de itens diferentes na coluna 2 correspondentes aos itens da coluna 1.
No caso, para a coluna um itens A, o resultado seria 2 (telecom e bens de consumo), para item B também 2(siderurgica e telecom) e para item C seria 1(siderurgica)

Até o momento eu consegui descobrir uma fórmula que conta a quantidade total de itens diferentes em uma coluna única, mas não consegui fazer com que ela seja baseada em um critério de outra coluna, no caso a coluna 1: =SUMPRODUCT((B:B<>"")/COUNTIF(B:B&""))

Agradeço a ajuda !

 
Postado : 08/04/2015 6:42 am
(@issamu)
Posts: 0
New Member
 

Olá!
Será que uma tabela dinâmica montada somente com os rótulos de linha não te ajudaria? Lá já teria a relação unica dos itens. Veja o modelo anexo.

 
Postado : 08/04/2015 6:54 am
(@gabrielmp)
Posts: 0
New Member
Topic starter
 

Rafael, obrigado pela resposta.

Acredito que dessa forma funcione, porém eu gostaria de algo que fosse atualizado automaticamente sempre que a outra tabela for. Com tabela dinâmica é possível fazer isso ? Por isso que eu acredito que por fórmula seja mais prático !

 
Postado : 08/04/2015 6:58 am
(@issamu)
Posts: 0
New Member
 

Rafael, obrigado pela resposta.

Acredito que dessa forma funcione, porém eu gostaria de algo que fosse atualizado automaticamente sempre que a outra tabela for. Com tabela dinâmica é possível fazer isso ? Por isso que eu acredito que por fórmula seja mais prático !

Uma solução para esta questão é utilizar uma macro associada ao evento change da planilha. Para fazer isso, insira o código abaixo no módulo da planilha. Para acesso o VBE, pressione ALT+F11 e insira conforme a imagem:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim pv As PivotTable
    Application.EnableEvents = False
    For Each pv In ActiveSheet.PivotTables
        pv.PivotCache.Refresh
    Next pv
    Application.EnableEvents = True
End Sub

Será necessário salvar o arquivo como pasta habilitada para macro do Excel (xlsm)

 
Postado : 08/04/2015 7:36 am