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

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 Thank’s Jhames Cremm