Arantxa Blanco

Sub Knapsack() Dim limit As Double, weight As Double, value As Double, totalWeight As Double, maximumValue As Double Dim g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z As Integer 'Limit of Weight limit = Range("D7").value 'Weights peso1 =...