MehmetFazilK adlı üyeden alıntı: mesajı görüntüle
makrosuz tercih ederim ama makrosuz yolu yoksa o da olur daha önce hiç kullanmadım ama denerim. 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target = Range("A1") Then
        Application.EnableEvents = False
        Range("B1").Value = 100 - Range("A1")
        Application.EnableEvents = True
    ElseIf Target = Range("B1") Then
        Application.EnableEvents = False
        Range("A1").Value = 100 - Range("B1")
        Application.EnableEvents = True
    End If
End Sub
ters orantı mantığıyla 0 - 100.
eğer 1 e 100 olsun diyorsanız kodda düzenleme yapabilirsiniz