• 0
Sign in to follow this  
fdkdente

Acumular valores para determinados produtos

Question

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.

Edited by fdkdente

Share this post


Link to post
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this