Ir ao conteúdo
  • Cadastre-se
Jukafrr

Excel RESOLVIDO Criar fórmula no excel com células dependentes uma da outra

Recommended Posts

Pessoal, alguém consegue me ajudar em como fazer o seguinte no excel:

Na célular A1, escrevo um valor "X". Então na célular A2, o resultado deve ser A1*1,2.

Porém, quero também ter a opção de escrever diretamente na célula A2, então o resultado na célula A1, deve ser A2/1,2.

Como fazer isso no excel sem que a fórmula se apague?

Obrigado.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Bem vindo ao fórum, @Jukafrr

 

Não dá pra fazer por fórmula pelo simples fato de que uma das fórmulas teria que ser sacrificada para dar lugar ao valor inserido pelo usuário.

Mas dá pra fazer por VBA. Por exemplo, clique com o botão direito da "orelha" da Plan1, escolha "Exibir Código" e cole as seguintes linhas no editor:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim x As Variant: x = Target.Value
  If Not IsNumeric(x) Then Exit Sub
  Application.EnableEvents = False
    Select Case Target.Address(False, False)
      Case "A1"
        [A2].Value = 1.2 * x
      Case "A2"
        [A1].Value = x / 1.2
    End Select
  Application.EnableEvents = True
End Sub

Teste agora com valores nas células A1 e A2.

  • Obrigado 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Muito obrigado.

Agora uma outra dúvida evoluindo com esse código.....

Criei o seguinte código:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim x As Variant: x = Target.Value
  If Not IsNumeric(x) Then Exit Sub
  Application.EnableEvents = False
    Select Case Target.Address(False, False)
      Case "J11"
        [J12].Value = x / [O8]
      Case "J12"
        [J11].Value = [O8] * x
    End Select
  Application.EnableEvents = True
End Sub

 

Agora preciso que ele rode automaticamente sempre que eu altere um determinada célula, por exemplo a célula "G7".

 

Você consegue me ajudar?

 

Obrigado.

adicionado 1 minuto depois
1 minuto atrás, Jukafrr disse:

Muito obrigado @Edson Luiz Branco

Agora uma outra dúvida evoluindo com esse código.....

Criei o seguinte código:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim x As Variant: x = Target.Value
  If Not IsNumeric(x) Then Exit Sub
  Application.EnableEvents = False
    Select Case Target.Address(False, False)
      Case "J11"
        [J12].Value = x / [O8]
      Case "J12"
        [J11].Value = [O8] * x
    End Select
  Application.EnableEvents = True
End Sub

 

Agora preciso que ele rode automaticamente sempre que eu altere um determinada célula, por exemplo a célula "G7".

 

Você consegue me ajudar?

 

Obrigado.

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×