Posílám řešení

Napřed vložím hodnotu která má vyjít do proměnné v a pak ji použiju jako parametr ValueOf. Spíš se trápím, aby mi to nezobrazovalo otravné modální okno, jestli chci uchovat výsledky řešení, doufám, že na to brzy přijdu.

Sub Resitel()
v=Range("M16")
'nebo také v=CStr(Range("M16"))
SolverOk SetCell:="$R$31", MaxMinVal:=3, ValueOf:=v, ByChange:=""$N$2:$N$14"
SolverSolve
End Sub

Zdravím J.Kratochvíl
další zajímavosti na mých stránkách http://makra.web.cz