Guru do Excel e Power BI

Enviado: **25 Jul 2022 às 16:25**

Colegas, boa tarde!
Gostaria novamente da ajuda de vocês. Tenho várias fornecedores com itens comercializados. Mensalmente esses fornecedores informam os itens que se encontram em estoque. Preciso que essas informações sejam consolidadas sem repetição.

Exemplo:
Fornecedor Bahia
Produto A - Eletrodoméstico
Produto B - Alimentício
Produto D - Escolar
Produto F - Automotivo

Fornecedor Alagoas
Produto A - Eletrodoméstico
Produto C - Higiene
Produto E - Construção
Produto F - Automotivo

Fornecedor Minas
Produto B - Alimentício
Produto D - Escolar
Produto F - Automotivo
Produto G - Segurança

Resultado esperado:

Consolidado
Coluna A Coluna B Coluna C Coluna D Coluna E
Produto A | Eletrodoméstico | Bahia | Alagoas | Minas
Produto B | Alimentício | Bahia | Minas
Produto C | Higiene | Alagoas
Produto D | Escolar | Bahia | Minas
Produto E | Construção | Alagoas
Produto F | Automotivo | Bahia | Alagoas
Produto G | Segurança | Minas

Segue planilha com exemplo.
Obrigado.

Enviado: **25 Jul 2022 às 20:47**

Código: Selecionar todos

Sub OndeTem()
 Dim ws As Worksheet, wsC As Worksheet, Pr As Range
  Set wsC = Sheets("Consolidado")
  With wsC
   For Each ws In Worksheets
    If ws.Name <> wsC.Name Then
     ws.Range("A3:B" & ws.Cells(Rows.Count, 1).End(3).Row).Copy .Cells(Rows.Count, 1).End(3)(2)
    End If
   Next ws
   .Range("A2:B" & .Cells(Rows.Count, 1).End(3).Row).RemoveDuplicates Columns:=1, Header:=xlNo
   For Each ws In Worksheets
    If ws.Name <> wsC.Name Then
     For Each Pr In .Range("A2:A" & .Cells(Rows.Count, 1).End(3).Row)
      If Application.CountIf(ws.[A:A], Pr.Value) Then .Cells(Pr.Row, Columns.Count).End(1)(1, 2) = ws.Name
     Next Pr
    End If
   Next ws
  End With
End Sub

#
obs.
1. na planilha Consolidado mantenha somente os cabeçalhos de colunas na Linha 1 .
2. o seu resultado apresenta inconsistências: Minas nos Produtos A e F.

Guru do Excel e Power BI

Consolidar produtos de fornecedores em uma única aba sem repetição

Consolidar produtos de fornecedores em uma única aba sem repetição

Re: Consolidar produtos de fornecedores em uma única aba sem repetição