Notifications
Clear all

Solver + Macro?

3 Posts
1 Usuários
0 Reactions
2,960 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

tentando utilizar solver com macro, eu uso o solver com restrições fixas, não preciso alterar nada no solver para cada cálculo, gostaria de automatizar o processor de executar o solver, usand um botao de macro, dai eu fui em gravar macro, e deu isso aqui na sintaxe:

Sub Solver()
    SolverOk SetCell:="$S$22", MaxMinVal:=1, ValueOf:=0, ByChange:="$D$14:$R$14", _
        Engine:=2, EngineDesc:="Simplex LP"
    SolverOk SetCell:="$S$22", MaxMinVal:=1, ValueOf:=0, ByChange:="$D$14:$R$14", _
        Engine:=2, EngineDesc:="Simplex LP"
    SolverSolve
End Sub

quando eu tento executar o macro ele da o seguinte erro: "Erro de copilação: 'sub' ou 'function' não definida, e a palavra "SolverOk" na sintaxe fica sublinhada

alguem sabe como resolver ?

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 15/07/2010 7:27 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ah.., o erro era só que não tinha adicionado em library o solver (no VBA)
agora ta funcionado :]

no final da sintaxe, mudei: "SolverSolve" para "SolverSolve userFinish:=True", agora ta show de bola :]

é so clicar no botão e ele não abre janela nenhuma, e calcula tudo que precisa o/

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 15/07/2010 10:18 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

boa, estava com o mesmo problema! :)

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 10/06/2015 12:48 pm