vba kode og SOLVER

fejlen kommer når jeg køre koden

Hej Koppelgaard

Har du mukighed for at maile en eksempelfil til mig ?

Med venlig hilsen, Nicolai

Hej Nicolai.
Jeg har sendt et eksempel
/Michael

Hej Michael

Super ... jeg kigger lige på om det er noget hitte ud af ?

Med venlig hilsen, Nicolai

Hej Michael

Jeg kender, som såden, ikke til Solver funktionen ... men umiddelbart tyder det på, at du ikke har defineret selve funktionen ... Er funktionen ikke defineret kan du ikke kalde/refererer til den, hvorfor fejlmeldingen opstår.

I VB Editoren under ... Tools > References findes et hav af referencer til alskens funktioner m.m.
De referencer der er vinget af er til rådighed i VBA.

Kunsten er nu, at finde SolverOk referencen ??

Jeg har Googlet lidt og fundet følgende:
http://support.microsoft.com/kb/153442
http://www.egr.msu.edu/~lira/supp/macro.htm

I min egen 2003 version af Excel har jeg fundet en reference der hedder: SOLVER ... Den var ikke på reference listen, så jeg måtte browse mig vej til den via browse knappen til højre for reference listen
... Og jeg fandt den for enden af denne sti:  C/Program Files/Microsoft Office/Office11/Library/SOLVER ... SOLVER.XLA


Funktionen kan nu kaldes uden definitionsfejlen.
Til gengæld fremkommer der er en anden fejl:
"An unexpected internal error occurred, or available memory was exhausted"

Om det har noget at gøre med min Excel version vs. din version eller om selve din SolverOk funktion trækker de rigtige data i de rigtige celler ????, pas :o/

Det snuser jeg lige lidt videre i ....

Med venlig hilsen, Nicolai

Hej Michael

Så har jeg måske løsningen ... det virker umiddelbart hos mig ?

Når du har fundet din SOLVER.xla reference og vinget den af i VB Editoren under ... Tools > References

Så, prøv at tilføje linien: solver.Auto_open øverst i din macro, så koden kommer til at se således ud:

Sub Macro1()
    solver.Auto_open
    SolverOk setCell:="$G$3", MaxMinVal:=3, ValueOf:="0", ByChange:="$H$3:$J$3"
    SolverSolve
End Sub


Som jeg har forstået, så skal Solver referencen være åben før funktionen kan tages i brug ??
Du kan læse lidt nærmere her - Specielt i #7: http://www.excelforum.com/excel-programming/377346-solver-error.html

Med venlig hilsen, Nicolai

1000 tak Nicolai.
Du har virkelig forsket i sagen.
Jeg håber det duer i min Excel 2007
Jeg kikker på det!

Hej Nicolai.
Jeg har sendt en mail :-)

Hej Michael

Ditto :o)

Hej Michael

Prøv evt. at kontakte Kabbak, en anden Eksperten.dk bruger.
Han er godt kørende i Excel :o)

Blot til info:
http://www.kabbak.dk/


Med venlig hilsen, Nicolai

Hej Nicolai.
Det er altså rigtig sjovt at du nævner Kabbak.
Han er min kollega :-)
Jeg har talt med ham i dag, inden jeg så dit råd.
vi kom frem til følgende:

Sub Solve(r As Integer)
        SolverReset
        SOLVER.Auto_open
        SolverOk SetCell:="$G$" & r, MaxMinVal:=3, ValueOf:="0", ByChange:="$H$" & r & ":$J$" & r
        SolverAdd CellRef:="$H$" & r, Relation:=3, FormulaText:="0.1"
        SolverSolve True
End Sub
   
   
Sub runSolver()
    Dim r As Integer
    lastRow = Range("G65000").End(xlUp).Row
    For r = 3 To lastRow
        Cells(r, 7).Select
        Call Solve(r)
    Next
End Sub

Dine råd hjalp os på vej.
Den eneste ting jeg manglede og havde misforstået var 'Relation'.
Jeg var ikke klar over at relation 1,2,3 henviste til hhv.
'<=', '=' og '>='
Løsningen ovenfor sætter kolonne G så tæt på 0 som muligt ved at ændre kolonne H, I, J, samtidigt med at kolonne H forbliver større end 0.1.
Sender du et svar?

Hej Michael

Ja, verden er lille :o)
Men dog ikke helt tilfældig ...

Jeg fattede ikke en brik af, hvad og hvordan Solve funktionen skulle bearbejde de mange data i dit tilsendte ark ??, hvorfor jeg Googlede lidt rundt! ... og i min søgen faldt jeg også over dig og din arbejdsgiver, hvilket mindede mig om, at jeg havde set, at en anden bruger herinde (Kabbak) faktisk havde samme arbejdsgiver (eller noget hen i samme retning ...)

At I så faktisk er ansat samme sted og kender hinanden, ja det er rent held fra min side :o)

Anyway, godt du fik svar på dit spørgsmål.

Jeg lægger hermed mit "svar" ... og jeg deler gerne med kabbak ... men det er op til dig ;o)

Med venlig hilsen, Nicolai

Nå ja. Kan da godt lige prøve at skrive til Kabbak og spørge om han vil have de 100 point:-)

ingen point til mig, jeg løste det jo på arbejdet ;-))

Du hørte manden ;-)