Using VBA, how to write unique solutions only?
 

Hi everyone,

I run an optimizer n times, say 10, and tell the model to write
feasible solutions into an excel table as follows:

RUN Cost Weight Volume
1 2.3 51.27 20.3
2 3.1 49.2 22.2
3 4.3 37.2 16.7
4 2.3 51.27 20.3
5
6
and so on.

I use a piece of VBA code like this:

Cline = 1
For JobNr = 1 To 10
result = vehicleModel.ReadModel("MCS2vehicle.mpl")

If result 0 Then
MsgBox vehicleModel.ErrorMessage
Else
vehicleModel.Solve

Set varVect = vehicleModel.VariableVectors("Assign")
Aline = 1
For Each mac In vehicleModel.Macros
If vehicleModel.Solution.ResultCode = 101 Then
Flag = 1
ARngSolution(Cline, Aline).Value = mac.Value
With ARngSolution(Cline, Aline)
.HorizontalAlignment = xlCenter
.NumberFormat = "#.##0"
End With
Else
Flag = 0
GoTo NextJobNr
End If
Aline = Aline + 1
Next mac

End If
NextJobNr:
Next

Note that solutions # 1 and 4 are identical! I want to write only new
solutions.
What should I add to the above piece to force it to do so?

Thanks,
Mike