EXCELer

Se pretendermos provocar uma ocorrência sempre uma determinada célula é alterada, podemos socorre-nos do evento WorkSheet_Change().

Tomemos o seguinte exemplo:

Se se pretender que, sempre que se insira um novo valor em A1, apareça em B1 metade do valor inserido em A1, adicionado ao valor que antes estava em B1, ou seja:

1ª inserção em A1 = 36, logo, B1 deverá tomar o valor 18 (36/2)




2ª inserção em A1 = 24, logo, B1 deverá tomar o valor 30 (24/2=12 + 18)




então, o Código poderá ser o seguinte:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        Target.Offset(0, 1).Value = Target.Offset(0, 1).Value + Target.Value / 2
    End If
End Sub