13 respostas neste tópico

[faorlandi]

Ola a todos,
preciso de uma ajuda pq nao entendo nada de macro comecei a usar agora e tenho excell 2007
A situação é a seguinte:
Preciso somar valores em uma coluna de A10 até A20 e o resultado da soma em A21
Porem queria que este valor em A21 fosse acumulando em B21.
Por exemplo se em A21 = 200, B21 = 200 , proximo resultado A21 = 20, B21 = 220 e assim por diante.
Espero que me ajudem... Valeu

[spielmann]

Ola a todos,
preciso de uma ajuda pq nao entendo nada de macro comecei a usar agora e tenho excell 2007
A situação é a seguinte:
Preciso somar valores em uma coluna de A10 até A20 e o resultado da soma em A21
Porem queria que este valor em A21 fosse acumulando em B21.
Por exemplo se em A21 = 200, B21 = 200 , proximo resultado A21 = 20, B21 = 220 e assim por diante.
Espero que me ajudem... Valeu

ALT F11- Inserir na Plan1 as linhas abaixo

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$21" Then
If IsNumeric(Target) Then
Target.Offset(0, 1) = Target.Offset(0, 1) + Target
End If
End If
End Sub

[faorlandi]

Caro, spielmann
agradeço a macro mas acho que tu nao entendeu , ou eu nao me expressei corretamente.....
1) a celula A21 será o total da soma de A1 até A20
2) após a soma destas celulas será transferido o resultado para B21 e acumulado na mesma quando eu der o enter.
Explico o pq....
Tenho um pedido de vendas em vai somando o valor do pedido.
quando terminar de tirar este pedido e for fazer outro gostaria que o resultado do primeiro fosse acumulado e esperaria o resultado do segundo e assim por diante.
Objetivo é saber quanto foi faturado no decorrer do dia.
espero ter exclarecido.
Obrigado.

[spielmann]

Prezado Faorlandi,
Alt F11 -Inserir modulo

Sub soma()
Range("A21").Formula = "=Sum(A1:A20)"
End Sub

manter o programa anterior em Plan1 descrito abaixo

ALT F11- Inserir na Plan1 as linhas abaixo

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$21" Then
If IsNumeric(Target) Then
Target.Offset(0, 1) = Target.Offset(0, 1) + Target
End If
End If
End Sub



Bom Proveito.

[faorlandi]

Obrigado pela atenção spielmman, mas nao funcionou como gostaria.
O modulo nao atuou como esperado....
obrigado mais uma vez pela ajuda.

[spielmann]

Obrigado pela atenção spielmman, mas nao funcionou como gostaria.
O modulo nao atuou como esperado....
obrigado mais uma vez pela ajuda.

você deve estar fazendo algo errado.

Baixe

http://www.sendspace.com/file/o29tdx

[faorlandi]

Era isso mesmo o que eu queria, valeu spielmann, porem gostaria de saber como colocou o botão acumulador se nao for pedir muito.

[spielmann]

Era isso mesmo o que eu queria, valeu spielmann, porem gostaria de saber como colocou o botão acumulador se nao for pedir muito.

IR em EXIBIR-BARRA DE FERRAMENTAS-FORMULÀRIOS-Clique no ícone Botão e espalhe na planilha.

Com o Botão Direito do mouse- Ir em Atribuir Macro- clique no nome da macro e de Ok
Edite o texto no botão.

[faorlandi]

valeu spielmann,

Voce quebrou o maior galho, mais uma vez obrigado.
Boa sorte em seus negocios!

[Parna]

Bom Dia Spielman,

Uma dúvida eu puxei a tabela.......

achei muito legal...........

porém eu tentei fazer de uma outra forma e não consegui colocar a célula para acumular....

como foi feito?

poderia me explicar?

muito obrigado