How to make solver solve for selected cells

[fgnkrkrt]

Hello all,
I need some help for combining two vba codes; selected cells and solver.

First, I wanted to find cells in column C starting "C2" till last non-blank cell (even if blank cells has formula, if cells returns "", then assume it is blank), so here is the code:

Please Login or Register  to view this content.

Secondly, I wanted to write a solver code which has "cellref" and "bychange" cells should be the above selected cells but I couldn't find a way to combine these selected cells with solver code. Here is the solver code:

Please Login or Register  to view this content.

So can you please help me how can I replace "$C$2:$C$38" with selected cells code?
Thanks in advance

[Alf]

I see you thread is marked "Solved" if it really is so prehaps you could upload the solution.

If this was a mistake i.e. your problem is not solved you must unmark your thread in order to get help. Check under thread tools if you can remove the solved setting. If not you must ask a "Forum Guru" or higher to help you.

Alf

[fgnkrkrt]

Here is the solution:

Sub SelectedCells()

Range("C2").Resize(Columns("C").Find(What:="*", After:=Range("C1"), LookIn:=xlValues, SearchDirection:=xlPrevious).Row - 1).Select

SolverReset
Solveradd Cellref:=Selection.Address, Relation:=3, formulatext:="1"
SolverOk SetCell:="N4", MaxMinVal:=3, Valueof:="0", ByChange:=Selection.Address
SolverSolve userFinish:=True

End Sub

[Alf]

Thanks for adding the solution to your problem

Alf