Recording and Refining the Solver macro and attaching to button

[aadityamagdum]

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

[hectoralarcon]

Excellent video Pamela, very clear and lovely explanation!

[brw]

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

[permadisuryo]

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

[batmojuice]

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

[EnriqueLagunes]

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

[annalauragabriele]

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