Hi ,
I wrote a code to run solver , unfortunately after 10 loops the results are not optimal.
This is the code :
Sub Solver()
Dim Pro As Range
Dim Dem As Range
Dim Tot_Pro As Range
Dim Start_Row As Integer
Dim End_Row As Integer
Dim i As Integer
Dim j As Integer
Application.ScreenUpdating...