Recording and Refining the Solver macro and attaching to button

Поділитися
Вставка
  • Опубліковано 14 лис 2024

КОМЕНТАРІ • 15

  • @aadityamagdum2802
    @aadityamagdum2802 Місяць тому

    Thanks a lot for this video. Especially the user finish portion of the code. Really appreciate the effort.

  • @hectoralarcon4888
    @hectoralarcon4888 2 роки тому +1

    Excellent video Pamela, very clear and lovely explanation!

  • @luccasturari7926
    @luccasturari7926 Рік тому +1

    Thank you very much Pamela!!

  • @brw8186
    @brw8186 4 роки тому +1

    Thank you so much, really appreciate it. I got stuck for 24 hours and now I can continue to my next project step :))

  • @batmojuice5704
    @batmojuice5704 4 роки тому +1

    Great tutorial. Thanks, especially the VB tricks. You saved me.

  • @permadisuryo3050
    @permadisuryo3050 9 місяців тому

    Really great works, you are the mvp keep it up 👍

  • @EnriqueLagunes
    @EnriqueLagunes Рік тому

    me hubiese gustado que lo enseñara a hacerlo desde el principio, pero fue un buen video ...

  • @annalauragabriele1811
    @annalauragabriele1811 6 років тому +2

    I'm sorry for my english. Thanks for the video. I have a question to you, if you could answer me.
    in the past I used the solver in this way and it worked.
    But now that I need it again, it says: "compile error sub or function not defined".
    I followed all your steps.
    I write you the code:
    Sub Macro12()
    '
    ' Macro12 Macro
    '
    '
    Sheets("Dimensionamento collettori").Select
    SolverReset
    SolverOk SetCell:="$P$2", MaxMinVal:=1, ValueOf:=0, ByChange:="$O$2:$O$66", _
    Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverAdd CellRef:="$N$2:$N$66", Relation:=2, FormulaText:="$P$2:$P$66"
    SolverOk SetCell:="$P$2", MaxMinVal:=1, ValueOf:=0, ByChange:="$O$2:$O$66", _
    Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverOk SetCell:="$P$2", MaxMinVal:=1, ValueOf:=0, ByChange:="$O$2:$O$66", _
    Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverSolve
    End Sub
    The first row became yellow.
    Can you help me? I can't understand where it's the problem.Thanks

    • @georgethanos1661
      @georgethanos1661 6 років тому +2

      @Annalaura LaBorde
      Va ad Microsoft Visual Basic for Applications->Tools->References->seleziona (Clicka) sul Solver...e tutto έ bene
      nell' ultima linea (solversolve) aggiunge: solversolve userfinish:=True (il tavolo di solver chiude automaticamente)
      Si puό aggiunge (prima di SolverReset): Application Screen Updating = False e prima di End Sub: Application Screen Updating = True
      Questo per limitare il movimento dell Sheet.

    • @RandyOrtonX6
      @RandyOrtonX6 4 роки тому

      where you able to solve the problem? I have the same problem

    • @batmojuice5704
      @batmojuice5704 4 роки тому +3

      English: In the Visual Basic tool, open macro, go to Tools, References, and make sure “Solver” is checked, hit “ok”.

    • @Eduardo08020
      @Eduardo08020 4 роки тому +1

      @@batmojuice5704 Thankyou, I had the same problem and was able to SOLVE it with your help :p

    • @juancarlosramireztinoco7634
      @juancarlosramireztinoco7634 3 роки тому

      @@batmojuice5704 Thanks, great help!