Utilização do Solver para Determinar um Resultado

[juliano.chaves]

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.

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

 

Editado Outubro 10, 2019 por juliano.chaves

[Alyson Ronnan Martins]

Só não consegui ajudar por não conhecer a função solver

[juliano.chaves]

16 horas atrás, Alyson Ronnan Martins disse:

Só não consegui ajudar por não conhecer a função solver

Conhece alguém que poderia me ajudar?

[Alyson Ronnan Martins]

Bom dia.

No meu caso eu refaria manual essanparte que esta dando errado.

[juliano.chaves]

53 minutos atrás, Alyson Ronnan Martins disse:

Bom dia.

No meu caso eu refaria manual essa parte que esta dando errado.

você consegue fazer?

[Alyson Ronnan Martins]

Consigo te ajudar para você fazer a alteração. Fico no aguardo.

[juliano.chaves]

2 horas atrás, Alyson Ronnan Martins disse:

Consigo te ajudar para você fazer a alteração. Fico no aguardo.

O que você precisa?

[Alyson Ronnan Martins]

Como é esse cálculo que você usa para adiquerir o resultado?

[juliano.chaves]

1 hora atrás, Alyson Ronnan Martins disse:

Como é esse cálculo que você usa para adiquerir o resultado?

Eu dou para o Solver os valores que ele tem que somar para um determinado resultado, e coloco as condições das regras. 

Assim ele determina para mim dentro das regras o valores que tem q somar e me mostra quais são.

.regra até 3 clientes - pode ser ajustado manualmente

Mínimo e máximo valor

Valor que eu determino em quantidade

[Alyson Ronnan Martins]

Como você controla no "Solver" o resultado que vai aparecer? Tipo: Resposta(1) ou Resposta(2)?

[juliano.chaves]

Você da para ele o valor que você quer achar, e ele tem que fazer variações em outras células que contenha cálculos para achar a melhor combinação.

 

você tem zap?

[Alyson Ronnan Martins]

Boa noite @juliano.chaves

O jeito mais rápido seria o discord pois trabalho no horário comercial e o discord uso para programação.