Oplosser / Solver automatiseren

[Koos Voos]

Geachte,

Ik heb een macro opgenomen voor de oplosser.
Maar het rekenen doet hij pas als ik op een formulierbesturingselement (knop) klik.
Kan dit zo geprogrammeerd worden dat de oplosser altijd rekent en niet pas als de macro uitgevoerd wordt door een druk op de knop ?
(oftewel dat de macro altijd "loopt"/"blijft lopen" en niet eenmalig uitgevoerd wordt zoals nu)

Bij voorbaat dank
Koos

 

[Roncancio]

Je kunt de code bij een Event zetten.
Bijvoorbeeld Worksheet_Calculate() of Worksheet_Change().

Met vriendelijke groet,


Roncancio

 

[Koos Voos]

Hoi Roncancio

Ik heb van alles geprobeerd, maar krijg het helaas niet werkend.
Dacht dat ik eea begon te begrijpen, maar........

Hieronder staat de code. Hoe gaa ik hier mee verder ??

bvd
Koos

Sub Macro1()
'
' Macro1 Macro
'
OplosserOpnieuw
OplosserOk CelBepalen:="$U$18", MaxMinWaarde:=1, WaardeVan:="15719", _
DoorVerandering:="$C$18,$R$26"
OplosserToevoegen Celverw:="$C$18", Relatie:=3, Formuletekst:="0"
OplosserToevoegen Celverw:="$V$20", Relatie:=2, Formuletekst:="$V$9"
OplosserToevoegen Celverw:="$C$18", Relatie:=1, Formuletekst:="$R$26"
OplosserOk CelBepalen:="$U$18", MaxMinWaarde:=1, WaardeVan:="15719", _
DoorVerandering:="$C$18,$R$26"
OplosserOplossen
End Sub

 

[Roncancio]

Je kunt de code plaatsen in Worksheet_Change() via:
- rechtermuisknop op tabbladnaam (dus onderaan de pagina) en selecteer Programmacode weergeven.
- Kies uit de keuzelijst bovenaan waar (Algemeen) staat voor Worksheet en kies er naast de event, bijvoorbeeld Worksheet_Change()

Je kunt rechtstreeks naar de macro verwijzen door in de code de macronaam te zetten.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Macro1

End Sub

Ik neem aan dat je niet continu de berekening wilt laten uitvoeren omdat je dan in een oneindige lus kunt blijven zitten.

Met vriendelijke groet,


Roncancio

 

[Koos Voos]

Hoi Roncancio,

Bedankt voor je hulp en uitleg, heb het werkend gekregen.
Sorry voor deze (ver)late reactie.

Groeten
Koos