A seguir, uma solução baseada em macro. Coloque a seguinte macro de eventos na área de código da planilha:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim BC As Range, t As Range, v As Variant
Dim r As Long
Set t = Target
Set BC = Range("B:C")
If Intersect(t, BC) Is Nothing Then Exit Sub
Application.EnableEvents = False
r = t.Row
v = t.Value
If v = "" Then
Range("B" & r & ":C" & r).Value = ""
End If
If IsNumeric(v) Then
If Intersect(t, Range("C:C")) Is Nothing Then
t.Offset(0, 1).Value = v * 1.2
Else
t.Offset(0, -1).Value = v / 1.2
End If
End If
Application.EnableEvents = True
End Sub
Por ser um código de planilha, é muito fácil de instalar e usar automaticamente:
- clique com o botão direito do mouse no nome da guia próximo à parte inferior da janela do Excel
- selecione Exibir código - isso abre uma janela do VBE
- cole o material e feche a janela do VBE
Se você tiver alguma dúvida, tente primeiro em uma planilha de teste.
Se você salvar a pasta de trabalho, a macro será salva com ela. Se você estiver usando uma versão do Excel posterior a 2003, deverá salvar o arquivo como .xlsm em vez de .xlsx
Para remover a macro:
- abrir as janelas do VBE como acima
- limpe o código
- feche a janela do VBE
Para saber mais sobre macros em geral, consulte:
e
Para saber mais sobre macros de eventos (código da planilha), consulte:
As macros devem estar ativadas para que isso funcione !