Excel Solver!! help

[eddy23]

I want to run multiple instances of excel solver simultaneously as i am trying to automate some calculations. I was hoping if someone could help me out.
Basically I have range of cells K14:K27 and M14:M27....each cell i.e. k14 to k27 is the target cell to be used in excel solver. Now I want to run the excel solver only when the adjacent cell in column M contains a value e.g.
“run solver operation for K14 when M14 contains a value..run solver for k15 when M15 contains a value so and so forth”.
The vb code/macro needs to lookup the range M14:M27 and then run the solver for cells k14:k27 accordingly
I would greatly appreciate if any1 cud help me out on this mission.
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o> </o>
Thank you

 

[Andrew Poulsom]

What have you tried? You just need a For Next loop.

 

[eddy23]

What have you tried? You just need a For Next loop.

i created a separate macro for solver operation for each cell in K14:K27, tried running those macros togather.

problem is cells k14:k27 contains values only if there is value in corresponding M14:M27 cell..so the method i applied is certainly not what i want. beacause i want to autmate the it, i was hoping for a vb code that would identify if there are any values in cell M14:M27 and then run solver opearation in the corresponding K14:K27 cells

 

[Andrew Poulsom]

Can you post your code for solving K14? Are all the other solutions based on the same parameters?

 

[eddy23]

Can you post your code for solving K14? Are all the other solutions based on the same parameters?

Sub test_solver()
'
' test_solver Macro
'
'
SolverOk SetCell:="$K$14", MaxMinVal:=3, ValueOf:="3.0849", ByChange:="$J$14"
SolverSolve
End Sub


Also is there a chance the parameter "valueOf:=" takes the value from corresponding I14:I27 cells automatically, at the moment im having to manually input this value.

 

[Andrew Poulsom]

Try:

Sub Test()
    Dim i As Integer
    For i = 14 To 27
        If IsNumeric(Range("M" & i).Value) Then
            SolverOk SetCell:="$K$" & i, MaxMinVal:=3, ValueOf:=CStr(Range("I" & i).Value), ByChange:="$J$" & i
            SolverSolve UserFinish:=True
        End If
    Next i
End Sub