gerar lista - com duplicatas e somar quantidades

[jordan_jd]

Boa tarde Galera

 

Estou tentando fazer adaptar uma macro que peguei na internet; para gerar uma lista de material dos materiais que se repetem muitas vezes.

isto na plan1

Exemplo :

Coluna A          Coluna B

Material 1               2

Material 2               1

Material 3               4

Material 2               1

Material 1               3

Material 3               1

Material 1               2

 

Coluna B é a quantidade do material.

 

quero  que fique assim

isto na plan2

Exemplo :

Coluna A          Coluna B

Material 1               7

Material 2               2

Material 3               5

 

tenho o código que já pega uma fez o material, só não consegui ainda o de comparar o material e somar a quantidade.

 

segue planinha que estou fazendo.

 

desde já obrigado.

 

Código:

Sub AleVBADeletaDepoisCopiar()
With Sheets("Plan1")
    .Range(.Range("A2"), .Range("A65536").End(xlUp)).Copy
End With

Sheets("Plan2").[A65536].End(xlUp)(2).PasteSpecial Paste:=xlValues
Cells.RemoveDuplicates Columns:=Array(1), Header:=xlNo
End Sub

 

 

 

teste_lista.zip

[Patropi]

@jordan_jd

 

Pena que tem ser com macro, pois com fórmulas é fácil de fazer.

 

[]s

[jordan_jd]

@Patropi

 

Eu já vi com fórmula,mas para mim não vai dar certo, porque vão acabar me excluindo a formula e ainda vou ter espaços em branco no meio da planinha, ai não vai dar muito certo, mas obrigado.

[Patropi]

@jordan_jd

 

Bom, se vão apagar as fórmulas daí não tem jeito mesmo, mas quanto a espaços em branco, as formulas não fazem isso.

 

Anexei uma planilha de exemplo baseado na descrição da tua primeira postagem.

 

Se for útil, clique em Curtir.

 

[]s

07_11_17_Copiar únicos e somar-Patropi.xlsx

[Philipp Moreira]

eu recomendaria usar tabela dinâmica