Excel Macro para copiar, eliminar/apagar duplicados, Somar e colocar em ordem.

[JhamesCremm]

Olá Senhores(as).

Estou com uma dúvida em uma macro, vocês poderiam me ajudar? Preciso criar uma macro que copie alguns itens de uma tabela (Plan1), cole em uma segunda aba (Plan2) que já foi criada antecipadamente, e somar as quantidades eliminando os duplicados.

Eu preciso executar esses comandos da primeira Aba (Plan1), sem ter que entrar em aba por aba e atualizar manualmente. Imaginei de colocar 2 botões na primeira planilha mesmo, que já fizesse a limpeza e o preenchimento das demais planilhas automaticamente.

A minha macro já está da seguinte forma, preciso completa-la com os dois itens que falei acima.

Sub Filtro_Avancado()
'
' Filtro_Avancado Macro
' Realiza filtro avançado.
'
' Atalho do teclado: Ctrl+f
'
    Range("'Geral'!A4:'Geral'!J1000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "A5:J6"), CopyToRange:=Range("A9:J9"), Unique:=False
End Sub
Sub Filtro_Avancado_2_Criterios()
'
' Filtro_Avancado_2_Criterios Macro
' Realiza filtro avanção usando duas linhas de critérios.
'
' Atalho do teclado: Ctrl+k
'
    Range("'Geral'!A4:'Geral'!J1000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "A5:J7"), CopyToRange:=Range("A9:J9"), Unique:=False
End Sub
Sub Limpar_Dados()
'
' Limpar_Dados Macro
' Limpa os dados da área de Critérios e da área de Extração.
'
' Atalho do teclado: Ctrl+d
'
    Range("A10:J1000").Select
    Selection.ClearContents
    Range("A10:J10").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("J5").Select
    
End Sub

 

Eu anexei a planilha zipada, para facilitar, se alguém puder me ajudar agradeço.

 

Thank’s

Jhames Cremm

Lista de Fabricação.rar