Este fórum está sendo desativado

[mineiro99]

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.

[osvaldomp]

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.