Utilização do Solver para Determinar um Resultado

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Utilização do Solver para Determinar um Resultado

Mensagempor juliano20 » Sex Out 11, 2019 10:13 am

Pessoal estou tentando fazer um calculo com o solver no VBA e não estou conseguindo executar toda a minha busca, vale ressaltar que comecei agora em programação no VBA.

Vou postar minha planilha aqui e quem puder ir me ajudando a entender o porque não está funcionando fico agradecido.

Ele encontra o valor determinado, mas não deixa eu colocar mais restrições de minimo e máximo valor.

Obs.: peguei parte do código na internet e estou tentando ajustar os valores, caso tenham uma nova ideia podem postar.

ERRO: Ele me trás o valor correto, mas não dentre os valores minimo e máximo.

Código: Selecionar todos
Sub lsAutoSolver()

SolverReset

    Dim i               As Long
    Dim iTotalLinhas    As Long

SolverReset

    iTotalLinhas = Cells(Rows.Count, 1).End(xlUp).Row
   
    Range("C7").Select
    Selection.Copy

    Range("C8:C" & iTotalLinhas).Select
    ActiveSheet.Paste

    Range("D7").Select
    Application.CutCopyMode = False
    Selection.Copy

    Range("D8:D" & iTotalLinhas).Select
    ActiveSheet.Paste
   
    Range("E7").Select
    Range("E8:E" & iTotalLinhas).Select

    Range("$G$3").Select
   
    SolverOk SetCell:="$G$3", MaxMinVal:=3, ValueOf:=Range("G2").Value, ByChange:="$C$7:$C$" & iTotalLinhas _
        , Engine:=1, EngineDesc:="GRG Nonlinear"
       
    SolverAdd CellRef:="$G$4", Relation:=1, formulaText:=3
    SolverAdd CellRef:="$C$7:$C$", Relation:=4
    SolverAdd CellRef:="$E$7:$E$", Relation:=3, formulaText:=Range("$G$6")
    SolverAdd CellRef:="$E$7:$E$", Relation:=1, formulaText:=Range("$G$7")
   
    While i <= iTotalLinhas
        SolverAdd CellRef:="$C$" & i, Relation:=5, formulaText:="binary"
       
        i = i + 1
    Wend
       
    SolverSolve False
   
End Sub
juliano20
Membro
Membro
 
Mensagens: 1
Registrado em: Sex Out 11, 2019 10:10 am
Has thanked: 0 time
Have thanks: 0 time

{ SO_SELECT }

Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: MSN [Bot] e 3 visitantes