Suggest adding the following code to VBA (PrimaryInputScreening)
'Report Error Bitumen Mining without Upgrader Has Upgrader Type.
'G17 = Oil sands mine (non-integrated with upgrader)
'G72 = Upgrader type
If (Worksheets("Inputs").Range("G17").Offset(0, i) = 1) And (Worksheets("Inputs").Range("G72").Offset(0, i) <> 0) Then
Worksheets("Results").Range("G195").Offset(0, i) = "ERROR"
Worksheets("Results").Range("G198").Offset(0, i) = "Bitumen mining without upgrader HAS upgrader type error"
End If
Report error when Oil sands mine (non-integrated with upgrader) turns on but the upgrader type does not turn off.
Suggest adding the following code to VBA (PrimaryInputScreening)
'Report Error Bitumen Mining without Upgrader Has Upgrader Type. 'G17 = Oil sands mine (non-integrated with upgrader) 'G72 = Upgrader type If (Worksheets("Inputs").Range("G17").Offset(0, i) = 1) And (Worksheets("Inputs").Range("G72").Offset(0, i) <> 0) Then Worksheets("Results").Range("G195").Offset(0, i) = "ERROR" Worksheets("Results").Range("G198").Offset(0, i) = "Bitumen mining without upgrader HAS upgrader type error" End If
Report error when Oil sands mine (non-integrated with upgrader) turns on but the upgrader type does not turn off.