Help needing two cells equal a constant value.

[jgui]

This formula (macro?) will live in cells c16 and c17. What I am attempting to do is always have two cells total a specific value of 62. For example, when I subtract from c16, it will add that number to c17 so that the two values combined always equal 62, and then vice versa. If I add to c16, it will subtract that amount from c17. Is this possible?

 

[JEC]

Put this behind your sheet module

Private Sub Worksheet_Change(ByVal Target As Range)
 With Target
   If .Count > 1 Then Exit Sub
   Application.EnableEvents = False
   If Not Intersect(.Offset, Range("C16:C17")) Is Nothing Then .Offset(IIf(.Row = 16, 1, -1)) = 62 - .Value
   Application.EnableEvents = True
 End With
End Sub

 

[jgui]

Put this behind your sheet module

Private Sub Worksheet_Change(ByVal Target As Range)
 With Target
   If .Count > 1 Then Exit Sub
   Application.EnableEvents = False
   If Not Intersect(.Offset, Range("C16:C17")) Is Nothing Then .Offset(IIf(.Row = 16, 1, -1)) = 62 - .Value
   Application.EnableEvents = True
 End With
End Sub

Thank you so much for the help!

 

[JEC]

You're welcome!