Notifications
Clear all

Ajuda - Procurar e Somar

5 Posts
1 Usuários
0 Reactions
988 Visualizações
(@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. :D

 
Postado : 05/10/2011 8:11 am
(@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

 
Postado : 05/10/2011 8:32 am
(@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!

 
Postado : 05/10/2011 8:58 am
(@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
 
Postado : 05/10/2011 11:20 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Reinaldo,

Muito obrigado pela sua ajuda! Acabou com os meus problemas!! Funcionou certinho! :lol:

Obrigado também ao Mauro

:)

 
Postado : 05/10/2011 11:59 am