Caros colegas,

O negocio é o seguinte:

Preciso gerar um relatório em uma planilha do excel que possui uma planilha, com duas colunas (Cod e Qtde). Tenho que gerar outra planilha, que quando houver codigos repetidos na 1ª planilha, este será adicionado na 2ª planilha apenas uma vez, mas a coluna 'Qtde' da 1ª planhiha será adicionada a coluna 'Qtde' da 2ª planilha.

Agradeço a atenção dispensada.

Bom acho que vc pode fazer isso....

sub procura_item

dim ex as excel.application

 

set ex=createobject("excel.application")

 

' Supondo que a planilha inicial seja Plan1...

ex.sheets("plan1").select

pos=1 'Coloque o valor que começa a sua lista sem o título

while ex.cells(1,pos) <>"" 'supondo que a primeira coluna é a A

   item=ex.cells(pos,1)

   valor=ex.cells(pos,2)

      ex.sheets("Plan2").select ' supondo que plan2 seja a planilha resposta

      posresp=1

      while ex.cells(posresp,1)<>""

           if ex.cells(posresp,1)=item then

                ex.cells(posresp,1)=ex.cells(posresp,1)+valor

                exit sub

           else

                posresp=posresp+1

           end if

      ex.cells(posresp,1)=item

      ex.cells(posresp,2)=valor

end sub