Estoy tratando de usar el solucionador en varias columnas (el número exacto de columnas que define el usuario). Después de mirar las preguntas aquí, todavía no puedo encontrar lo que está mal con mi código (soy bastante nuevo en VBA). Cuando lo ejecuto, funciona bien durante el primer año, pero no se aplica a los años siguientes.

Dim wsFM_B3 As Worksheet
Set wsFM_B3 = ThisWorkbook.Worksheets("xxxx_B3")

Dim wsCharts As Worksheet
Set wsCharts = ThisWorkbook.Worksheets("Charts")

Dim j As Integer

For j = 0 To Range("CC_Reduction_Years").Value
    SolverReset
    SolverAdd CellRef:=wsFM_B3.Range("E_Start").Offset(0, j), Relation:=3, FormulaText:=wsCharts.Range("Min_E")
    SolverAdd CellRef:=wsFM_B3.Range("Bank_Start").Offset(0, j), Relation:=3, FormulaText:=wsFM_B3.Range("Cash_B3")
    SolverOk SetCell:=wsFM_B3.Range("PoY_Start").Offset(0, j).Address, MaxMinVal:=3, ValueOf:=0, ByChange:=wsCharts.Range("CC_Base_Start").Offset(0, j).Address, Engine _
        :=1, EngineDesc:="GRG Nonlinear"
    SolverSolve True
  Next j
End Sub

Esto es lo que mixxxx_B3 la hoja se ve así:

En la hoja "Gráficos" solo hay celdas que contienen los valores objetivo para la primera línea, las restricciones y el número de años.