Macro para Acumular valores para determinados produtos

[fdkdente]

Bom dia pessoal.

 

Preciso de uma ajudinha com um código do vba.. é o seguinte:

 

Tenho uma planilha que faz o "check in" dos produtos que chegam na empresa, e outra de controle de estoque e quero que seja feito a adição da mercadoria do chek in no estoque.

 

Elaborei uma planilha simples, de exemplo que tem a mesma ideia https://www.sendspace.com/file/7f4s5l

 

Pensei numa macro neste sentido:

Dim qtd as Double

Dim prod, prod_estoque as String


Sheets("Estoque").Select

prod_estoque = Range("A:A").Value


Sheets("Cadastro").Select


prod = Range("A1").Value

qtd = Range("B1").Value


If prod = prod_estoque Then


'Aqui seria inserido um comando que seleciona a célula da Coluna A da planilha Estoque que tem o mesmo valor de prod, ou seja, é o mesmo produto. Em seguida, a seleção muda para a célula ao lado (coluna "B").


ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1 + qtd


Else 

End If

End Sub

O código tem alguns erros claros, como na linha "If prod = prod_estoque Then"... Mas acho que a ideia foi compreendida ^^

 

Qualquer duvida só me perguntar...

 

Se alguém puder me ajudar, agradeço.

[ilkyest]

DUPLICADO

http://forum.clubedohardware.com.br/forums/topic/1084687-macro-para-acumular-valores-para-determinados-produtos/