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. adicionado 1 minuto depois

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.