Risolutore in una Macro

[memova]

ciao!!! devo fare una macro con il risolutore. Ho provato ad aggiungere il riferimento Risolutore.xla che si trova nella sottocartella \Office\Library ma mi dice: "impossibile aggiungere riferimento a file specificato" Perchè???
Grazie

[Anthony47]

Ciao memova e benvenuto nel forum.
Che versione di excel usi, quali operazioni esattamente esegui e in che momento ti compare quel messaggio?

Ciao.

[memova]

Grazie mille, poi ho risolto. Avrei un'altra domanda da porre. Dovrei applicare una serie di operazioni con il risolutore "a cascata". Ad es devo imporre pari a 0 la formula nella cella A2 cambiando il valore della cella B2. Poi la devo porre pari a 0 la formula nella cella A3, che dipende del valore ottenuto in B2, cambiando la cella B3. Ho fatto:
Sub Macro2()
'
' Macro2 Macro
'
' Scelta rapida da tastiera: CTRL+b
'
For i = 2 To 3
SolverOk SetCell:="cells(i,A)", MaxMinVal:=3, ValueOf:="0", ByChange:="cells(i,B)"
SolverSolve UserFinish:=True
SolverFinish KeepFinal:=1
Next
End Sub
ma mi risolve solo l'eq nell'ultima cella, e non pone pari a 0 la cella A2!come devo fare? grazie, è la 1°volta che uso VB

[Anthony47]

Grazie mille, poi ho risolto.

Immagino che avevi avuto problemi a impostare nell' editor delle macro il riferimento all' add-in "Solver.xla"...

Per quanto riguarda la macro, tramire Registra nuova macro ho ottenuto questo codice con Solver (Risolutore):

Codice: Seleziona tutto

    SolverOk SetCell:="$A$2", MaxMinVal:=3, ValueOf:="0", ByChange:="$B$2"
    SolverSolve
    SolverOk SetCell:="$A$3", MaxMinVal:=3, ValueOf:="0", ByChange:="$B$3"
    SolverSolve


OPPURE questo per Goalseeker (ricerca obiettivo):

Codice: Seleziona tutto

Range("A2").GoalSeek Goal:=0, ChangingCell:=Range("B2")
    Range("A3").GoalSeek Goal:=0, ChangingCell:=Range("B3")


Vedi tu quale usare.

Ciao.

[memova]

Ho usato il codice che mi hai mandato con il risolutore,va benissimo! Grazie mille x l'aiuto!!!
Ciao