Pesquisa e soma com valor existente na segunda coluna

2024 - VBA & Macros

Post Recente por rafnakb 8 anos atrás

3 Posts

2 Usuários

0 Reactions

896 Visualizações

RSS

rafnakb

(@rafnakb)

Posts: 44

Eminent Member

Topic starter

Olá. Gostaria de uma ajuda com VBA.
Tenho uma coluna A com códigos de 10 produtos, uma coluna B com a quantidade de cada um e
uma coluna C com a quantidade de defeitos ao produzi-lo.
Fiz um simples userform apenas para lançar uma atualização. Digito o código numa txtbox1, outro txtbox2 lanço a quatidade
do lote e em outro txtbox3 a quantidade de defeitos daquele lote; e por fim um Botão Salvar.
O processo que queria seria:
1) Clico em Salvar
2) Procura o código do txtbox1 na coluna A
3) Soma a quantidade do txtbox2 com o valor já existente na coluna B
4) Soma a quantidade do txtbox3 com o valor já existente na coluna C

Se puderem me ajudar, agradeço.

Postado : 27/07/2016 8:31 am

edcronos2

(@edcronos2)

Posts: 346

Reputable Member

seria mais ou menos assim

rang=range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row
for l=1 to ubound(rang,1)
if rang(l,1)=txtbox1.value then l2=l exit for
next
cells(l2,2).value2=cells(l2,2).value2 + txtbox2.value
cells(l2,3).value2=cells(l2,3).value2 + txtbox3.value

Postado : 27/07/2016 8:48 am