If you are not sure how to implement this advice, see attached file (remember to allow macro execution)
Focus on Sheet1 (Arkusz1) code - right click on Arkusz1 tab and select display code to see it. Change A1 and B1 to your "connected cells" addresses
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Union(Range("A1"), Range("B1"))) Is Nothing Then
Application.EnableEvents = False
If Not Intersect(Target, Range("A1")) Is Nothing Then
Range("B1").Value = 100 - Range("A1").Value
Else
Range("A1").Value = 100 - Range("B1").Value
End If
Application.EnableEvents = True
End If
End Sub
Bookmarks