Private Sub Worksheet_Change(ByVal Target As Range)
 Dim result As String
   If Target.Row >= 19 And Target.Row <= 39 Then
           If Cells(Target.Row, 12).Value = 0 Then
         If Cells(Target.Row, 5).Value <> "" Then
         Cells(Target.Row, 5).Value = ""
         End If
         If Cells(Target.Row, 7).Value <> "" Then
         Cells(Target.Row, 7).Value = ""
         End If
     Exit Sub
     End If
        
     If Cells(Target.Row, 12).Value > 0 And Cells(Target.Row, 5).Value > 0 Or Cells(Target.Row, 7).Value > 0 Then
                   If Target.Column = 7 Then
         result = Cells(Target.Row, 5).Value * Cells(Target.Row, 12).Value
             If Target.Value <> result Then
             Cells(Target.Row, 5).Value = Cells(Target.Row, 7).Value / Cells(Target.Row, 12).Value
             End If
         End If
                   If Cells(Target.Row, 12).Value <> Cells(Target.Row, 7).Value / Cells(Target.Row, 5).Value Then
         Cells(Target.Row, 7).Value = Cells(Target.Row, 5).Value * Cells(Target.Row, 12).Value
         End If
              
         If Target.Column = 5 Then
         result = Cells(Target.Row, 7).Value / Cells(Target.Row, 12).Value
             If Target.Value <> result Then
             Cells(Target.Row, 7).Value = Cells(Target.Row, 5).Value * Cells(Target.Row, 12).Value
             End If
         End If
       End If
 Exit Sub
 End If  |