Jukafrr

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.

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.

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.