Private Sub Worksheet_Change(ByVal Target As Range)
Dim R As Integer
Dim X As Double
Dim Y As Double
If Not Intersect(Target, Range("E17:E36")) Is Nothing And Range("A" & Target.Row) <> "" And Range("G" & Target.Row) <> "" Then
ActiveSheet.Unprotect
If Range("G" & Target.Row) = "Corn Silage" Then
R = Target.Row
X = Application.WorksheetFunction.Lookup(Sheets("K management").Range("G" & R), Sheets("K Equations").Range("A1:B17"))
Y = Application.WorksheetFunction.Lookup(Sheets("K management").Range("G" & R), Sheets("K Equations").Range("A1:C17"))
Range("N" & R).Value = (X - Y * Range("E" & R)) * (Range("M" & R) * 8)
Else
R = Target.Row
X = Application.WorksheetFunction.Lookup(Sheets("K management").Range("G" & R), Sheets("K Equations").Range("A1:B17"))
Y = Application.WorksheetFunction.Lookup(Sheets("K management").Range("G" & R), Sheets("K Equations").Range("A1:C17"))
Range("N" & R).Value = (X - Y * Range("E" & R)) * Range("M" & R)
End If
If Range("N" & R).Value < 0 Then
Range("N" & R).Value = 0
End If
ActiveSheet.Protect
End If
If Not Intersect(Target, Range("E43:E57")) Is Nothing And Range("A" & Target.Row) <> "" And Range("G" & Target.Row) <> "" Then
ActiveSheet.Unprotect
R = Target.Row
X = Application.WorksheetFunction.Lookup(Sheets("K management").Range("G" & R), Sheets("K Equations").Range("A1:B17"))
Y = Application.WorksheetFunction.Lookup(Sheets("K management").Range("G" & R), Sheets("K Equations").Range("A1:C17"))
Range("N" & R).Value = (X - Y * Range("E" & R)) * Range("M" & R)
If Range("N" & R).Value < 0 Then
Range("N" & R).Value = 0
End If
ActiveSheet.Protect
End If
End Sub