Excluir + somar dados repetidos no listView

[RafaelJ10]

Boa Noite Pessoal. To com um probleminha e espero que alguém possa me ajudar , Preciso de um código em VBA que some os valores iguais da listView e esses valores iguais se torne apenas um com a somatória total de todos.

Não acho nada similar em lugar nenhum
vlw

[srobles]

RafaelJ10,

Fiz um modelo (em anexo) que trabalha da seguinte forma:

Lê o valor da célula na coluna A e enquanto o valor da próxima célula for igual a anterior, soma os valores contidos na coluna B. Quando o valor da célula A muda, os itens são adicionados ao Listview. Apenas um item e seu respectivo total.

Atente que para o código funcionar seus dados devem estar classificados.

Veja se te atende.

Aguardo retorno.

Abs

[RafaelJ10]

Ola srobles Obrigado por sua atenção.
Bom Vamos lá. era quase isso que vc me passou mas será que tem como por exemplo eu carregar o listview com todos os valores inclusive os repetidos e ai sim criar uma somatória dos valores repetidos e transferi-los para outro listview2 com apenas um dos valores repetidos mas com a somatória total.

Desde já agradeço

[srobles]

RafaelJ10,

Se entendi direito, você quer que em um ListView todos os itens sejam listados e em outro sejam listados os itens porém resumidos, ok?

Veja no anexo se é isto.

Abs

[RafaelJ10]

é dessa maneira que vc me propôs. só que meus dados da listview 1 vem do access, então para fazer o resumo na outra listview2 não posso usar referencia de uma planilha os dados resumidos teria que vir da listview 1 mesmo.
vc teria alguma solução. sem querer abusar.

Obrigado

[srobles]

RafaelJ10,

Bem agora você forneceu as informações necessárias para realizar a tarefa.

Vou adaptar o código do ListView2 para resumir os dados do ListView1. Quaisquer novidades, posto aqui ok?

Abs

[RafaelJ10]

ok Obrigado pela ajuda.

[srobles]

RafaelJ10,

Levando em consideração que seu ListView1 está preenchido com os dados da tabela Access, adaptei o código do ListView2 para resumir os dados do ListView1. Adapte o código a partir da linha 'Preenche o ListView2 - Resumido, para as colunas contidas no seu ListView1. Lembre-se que seu ListView1 deve estar classificado para que o código funcione.

Abs

[RafaelJ10]

Cara Perfeito era isso mesmo exatamente que eu queria, ainda bem que existe pessoas como vc que ajude outras pesoas!!

Muito obrigado.

[srobles]

Opa, RafalJ10. Disponha amigo!

Abs