Página 1 de 1

Botão adicionar valor a uma célula

Enviado: 12 Mai 2019 às 21:29
por furlancaio
Boa noite pessoal

Gostaria de pedir a ajuda de vocês. Criei essa planilha bem simplesinha apenas para agilizar uma conta que tenho que fazer no trabalho. Tive a seguinte ideia mas não sei como fazer o código: coloquei os produtos em lista usando validação de dados e ao lado a quantidade. Gostaria de selecionar o produto, digitar a quantidade e ao clicar no botão, o valor na célula QTD somar ao valor nas células correspondentes em DESCARGA. Por ex: produto AH, qtd 55, e ele somar com o valor que já estiver na célula.

Desde já agradeço!

Re: Botão adicionar valor a uma célula

Enviado: 13 Mai 2019 às 07:45
por osvaldomp
Experimente:
Código: Selecionar todos
Sub AdicionaDescarga()
 Dim r As Long
  r = [H3:H7].Find([E13]).Row
  Cells(r, 9) = Cells(r, 9) + [F13]
End Sub

Botão adicionar valor a uma célula

Enviado: 13 Mai 2019 às 09:18
por furlancaio
Funcionou perfeitamente! Muito obrigado!