Nekem sehogy sem akar sikerülni ez a makrós dolog. Már feladtam. Esetleg ha valaki tud segítsen!
Egy cellára a kódom a következő:

Sub Szamol()
'
' Szamol Makró
'
'
SolverOk SetCell:="$H$8", MaxMinVal:=2, ValueOf:="0", ByChange:="$G$8"
SolverDelete CellRef:="$G$8", Relation:=3, FormulaText:="0,000001"
SolverAdd CellRef:="$G$8", Relation:=3, FormulaText:="0,000001"
SolverOk SetCell:="$H$8", MaxMinVal:=2, ValueOf:="0", ByChange:="$G$8"
SolverSolve
End Sub

A képlet amivel számol a H8 cellában van és a következő:
ABS(1/GYÖK(G8)+2*LOG10(2,51/(C8*GYÖK(G8))+($B$3/$B$2)/3,71))
A H8 cella a célcella, a módosuló cella a G8, a korlátozó feltétel pedig, hogy G8>=0,00001.
A számolás a 8. sortól a 61. sorig kellene elvégezni. A C oszlop értéke mindig az aktuális sorhoz tartozó értékek.
Vagy, ha valakinek könnyebb akkor a file- t is elküldhetem.