Flaring Smart Default Issue

In the 'Activate Field' sheet, the default value (Cell K125) for FOR refers to the 'Flaring' sheet (Cell M49). Then in the VBA, the flaring sheet needs to be recalculated.

Replace the following lines of code in VBA BulkAssessment

'If cell in inputs sheet does not have data, go to the active field uncertainty draw
        For j = LBound(RowsToProcess) To UBound(RowsToProcess)
            RowBeingProcessed = RowsToProcess(j)

            If IsEmpty(Worksheets("Inputs").Cells(RowBeingProcessed, i + 7).Value) Then
                    'Calculate Flaring sheet
                    If RowBeingProcessed = 86 Then
                        Sheets("Flaring").Calculate
                    End If

                'Calculate this sheet only to update smart defaults in this population process.
                ActiveField.Calculate

                'User value in the "Active Field Working Sheet" is equal to default value in the "Active Field Working Sheet"
                ActiveField.Cells(RowBeingProcessed + 39, 10).Value2 = ActiveField.Cells(RowBeingProcessed + 39, 13).Value2

                'Blank entry in "Results" sheet is equal to User value in the "Active Field Working Sheet"
                Results.Cells(RowBeingProcessed, i + 7).Value2 = ActiveField.Cells(RowBeingProcessed + 39, 10).Value2
                'Color the parameter cell in the Results sheet as default
                Results.Cells(RowBeingProcessed, i + 7).Interior.Color = RGB(0, 155, 118)
            End If
        Next j

arbrandt / OPGEE

Flaring Smart Default Issue #487