This code goes in the sheet code modulke and automatically updates whe A2, A3 or A4 is changed. It assumes A2 is x, A3 is y, and A4 is z
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ws_exit
Application.EnableEvents = False
Select Case True
Case Not Intersect(Target, Me.Range("A2")) Is Nothing
Me.Range("A3").Value = Target.Value / 77 * 18
Me.Range("A4").Value = Target.Value / 77 * 5
Case Not Intersect(Target, Me.Range("A3")) Is Nothing
Me.Range("A2").Value = Target.Value / 18 * 77
Me.Range("A4").Value = Target.Value / 18 * 5
Case Not Intersect(Target, Me.Range("A4")) Is Nothing
Me.Range("A2").Value = Target.Value / 5 * 77
Me.Range("A3").Value = Target.Value / 5 * 18
End Select
ws_exit:
Application.EnableEvents = True
End Sub
Bookmarks