Página 1 de 1

Imprimir valor de uma fórmula em outra célula

Enviado: 11 Jun 2018 às 16:57
por RafaelSR
Olá senhores!



Gostaria de saber qual a fórmula para " imprimir " o valor de uma outra fórmula (do produto entre duas células, por exemplo), inscrita em uma célula, em outra célula qualquer.





Exemplo:



Na célula A1 e B1 irei inserir duas variáveis e eu quero o seu produto " impresso" a partir da célula D4.



Na prática, temos:

na célula A1 ponho o número 3 e na célula B1 ponho o número 2. Logo, se quero o produto, na célula D4, deverá aparecer 6.

Contudo, eu quero que ele apareça na célula D4 e fique lá! Não suma, pois irei utilizar as mesmas células das variáveis (A1 e B1) para 

colocar outros valores, como: 7 na A1 e 2 na B1, por exemplo. Daí, eu quero que apareça na célula abaixo, ou seja, D5, esse novo produto de valor 14, dessa vez.


E assim por diante.



Muito agradecido pela atenção!

Re: Imprimir valor de uma fórmula em outra célula

Enviado: 11 Jun 2018 às 19:52
por osvaldomp
RafaelSR escreveu:Gostaria de saber qual a fórmula para ...
Por fórmulas não é possível. Se você quiser experimentar uma solução via macro, instale o código abaixo em um módulo comum, assim:
1. copie o código daqui
2. a partir da planilha em que estão os dados tecle 'Alt+F11' para acessar o editor de VBA
3. no menu do editor >> Inserir >> Módulo
4. cole o código na janela em branco que vai se abrir
5. feito! 'Alt+Q' para retornar para a planilha e testar

para rodar o código:
6. tecle 'Alt+F8' >> selecione a macro correspondente >> Executar, ou insira um botão na planilha e vincule-o à macro ou vincule-a a um atalho de teclado (Alt+F8 > Opções).
Código: Selecionar todos
Sub InsereProduto()
 Range("D" & IIf([D4] = "", 4, Cells(Rows.Count, 4).End(3)(2).Row)) = [A1] * [B1]
End Sub
funcionamento - altere o valor de A1 e ou de B1 e rode o código

Re: Imprimir valor de uma fórmula em outra célula

Enviado: 13 Jun 2018 às 16:30
por RafaelSR
Olá! É bem isso aí mesmo! Muito obrigado!


Mas estou tendo problemas para editar a planilha.

Caso eu queira imprimir a partir da célula G1, por exemplo, o que tenho que fazer?
Estou fazendo assim:

Sub InsereProduto()
Range("G" & IIf([G1] = "", 4, Cells(Rows.Count, 4).End(3)(2).Row)) = [A1] * [B1]
End Sub

Com isso a planilha não reconhece minha alteração e, além disso, começa a imprimir as multiplicações na mesma célula ( G4 ).

Será erro nas linhas que eu alterei ou um erro na hora de salvar?

Digo isso pq sempre que vou salvar aparece um aviso de privacidade.

Não sei do que se trata.

Muito grato!

Re: Imprimir valor de uma fórmula em outra célula

Enviado: 13 Jun 2018 às 19:50
por osvaldomp
RafaelSR escreveu: Será erro nas linhas que eu alterei ... ?
Sim, você alterou a linha de comando que passei de forma incompleta.
Altere também os números em vermelho conforme abaixo.
Range("G" & IIf([G1] = "", 1, Cells(Rows.Count,7).End(3)(2).Row)) = [A1] * [B1]
RafaelSR escreveu:Digo isso pq sempre que vou salvar aparece um aviso de privacidade.
Não sei do que se trata.
Eu também não faço ideia sobre o aviso de privacidade e não vejo relação com o código que passei.