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 |