vb kod sorunu

[cevher]

bir iterasyon işlemi için, şu kodu kullanıyorum ama cıkan hatayı cozemiyorum;

Subiterate()
SolverReset
SolverOK SetCell:="F215", MaxMinVal:=2, ValueOf:="0"
ByChange:="F213"
SolverSolve userFinish:=True
SolverFinish KeepFinal:=1
End Sub


kısa surede yardıma ihtiyacım var... tesekkurler...