Solucionador de VBA não em loop
Estou tentando usar o solucionador em várias colunas (o número exato de colunas sendo definido pelo usuário). Depois de analisar as perguntas aqui, ainda não consigo encontrar o que há de errado com o meu código (sou bastante novo no VBA). Quando o executo, ele funciona bem no primeiro ano, mas não se aplica aos anos seguintes.
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
Aqui está o que meuxxxx_B3
folha se parece com:
Na planilha "Gráficos", existem apenas células que contêm os valores de destino para a primeira linha, as restrições e o número de anos.