Ajuda - Procurar e Somar

2024 - VBA & Macros

Post Recente por Fernando Fernandes 13 anos atrás

5 Posts

1 Usuários

0 Reactions

991 Visualizações

RSS

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Topic starter

Bom dia a todos,

Estou com um problema para criar uma macro em uma planilha. Segue imagem:

Preciso de uma macro que, ao digitar o número da ferramenta em A4 e a Quantidade em C4, ele procure o valor de A4 na coluna A (A5:A11) e some o valor de C4 a quantidade correspondente ao item da coluna A na coluna C.

Como mostra na imagem, eu gostaria que ao pressionar o botão Somar, a quantidade da ferramenta 3 que já é de 3000 somasse mais 3000 (Célula C4) e ficasse ao todo com 6000.

Não sei se fui muito claro... quem souber e puder me ajudar eu agradeço.

Obrigado.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 05/10/2011 8:11 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Topic starter

Pastore, devido as restrições aqui no serviço, a imagem não aparece, o ideal seria anexar um exemplo reduzido com os resultados que pretende.

Apesar que pelo que mencionou acredito que possa ser resolvido com Formulas, tipo PROCV, SOMARPRODUTO entre outras, não necessitando VBA, a não ser que queira mesmo em VBA.

Então se possivel anexe o exemplo.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 05/10/2011 8:32 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Topic starter

Bom dia Mauro,

Hospedei o arquivo no 4 shared em http://www.4shared.com/file/lBjQ8p3Y/Exemplo.html

Tem alguns numeros de ferramentas e suas quantidades. Na linha 3 eu queria fazer um campo para inserir dados, ou seja, quem estiver operando a planilha escolhe o número da ferramenta através de uma validação de dados (lista) e escreve uma quantidade. Ao pressionar um botão, a quantidade informada deve ser somada a que ja existe na parte de baixo da tabela

Não sei se fui muito claro... qualquer dúvida eu respondo aqui

Muito obrigado!

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 05/10/2011 8:58 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Topic starter

Segue uma possibilidade
Utilizado o codigo abaixo

Sub Soma()
Dim nRow As Long
'Encontra a posição do registro na range
nRow = Application.Match(Sheets("Plan1").Cells(4, 1).Value, Sheets("Plan1").Range("A6:A100"), 0)
'aplica corrção para o numero da linah na planilha
nRow = nRow + 5
'Soma o valor de C4 (Cells(4,3) como o valor existente
Sheets("Plan1").Cells(nRow, 3) = Sheets("Plan1").Cells(nRow, 3).Value + Sheets("Plan1").Cells(4, 3).Value

End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 05/10/2011 11:20 am