Recent content by guilhermepedro

Really thanks. You are the man. I had already tried something like this .. but I must have written something wrong. Thank you so much.

Me too. spreadsheet: http://sdrv.ms/QO8wLA It's just a prototype. I'll improve it. I'm Brazilian, so the spreadsheet is in portuguese.. ^^

So strange. I realized the solver parameters are only filled restrictions when I run it.. the other parameters are blank. Is it possible that some reference is not checked?

Yes.. i did Look the complete comand: Sub Solver() Dim n As Integer 'Last line n = Plan1.Range("B65000").End(xlUp).Row SolverOk SetCell:="$E$5", MaxMinVal:="$T$4", ValueOf:=0, ByChange:="$E$8:$E$" & n, _ Engine:=2, EngineDesc:="Simplex...

now.. I have a problem with SolverOk Dim n As Integer ' Procura a última linha preenchida das variáveis n = Plan1.Range("B65000").End(xlUp).Row 'Seta os parâmetros iniciais SolverOk SetCell:=Range("$E$5").Value...

thanks dude.. just missed it: Dim Reltn as long Reltn = RAnge("$I$" & q + 1).value For w = 1 To h SolverAdd CellRef:="$I$" & q, Relation:="" & Reltn, FormulaText:="$I$" & q + 2 really thanks

I need a Loop for SolverAdd.. Is it possible? I tried this: Dim h As Integer 'Número de restrições Dim w As Integer 'Referência para o Loop Dim q As String 'Referência para localizar célula que deve ser lida h = Plan1.Range("T8") - 1...