een veld automatisch laten vermeerderen

[Chris Cools]

Hallo,

weten jullie of en hoe het mogelijk is om in een veld een getal om de zoveel seconden automatisch te laten verhogen?
Dit om een simulatie te kunnen maken.
bvb in werkpost 1 komt om de zoveel minuten een pallet toe, deze werkpost heeft een bepaalde capaciteit.
zo zijn er een aantal werkposten met verschillende capaciteiten.
Graag zou ik een real time simulatie kunnen maken van het volume op de verschillende werkposten.

misschien een beetje een rare vraag...

grtz,
chris

 

[Chris Cools]

misschien beetje concreter:

ik wil het getal in A2 bvb alle 5 seconden automatisch kunnen laten aanpassen aan a2 (het huidig getal dat er nu staat)
plus het getal in A1.

mvg,

chris

 

[Roncancio]

misschien beetje concreter:

ik wil het getal in A2 bvb alle 5 seconden automatisch kunnen laten aanpassen aan a2 (het huidig getal dat er nu staat)
plus het getal in A1.

mvg,

chris

Sub Begin()
Application.OnTime Now + TimeValue("00:00:05"), "Verhogen"

End Sub

Sub Verhogen()
[A2] = [A2] + [a1]
Begin
End Sub

Start de macro Begin.
Na 5 seconde wordt de waarde van A2 verhoogd met de waarde van A1.
Elke 5 seconde wordt de handeling herhaald.

Met vriendelijke groet,


Roncancio

 

[Chris Cools]

ok, bedankt! werkt perfect!

is er ook een mogelijkheid om zo'n macro's stop te zetten? of te onderbreken?

grtz

 

[Roncancio]

ok, bedankt! werkt perfect!

is er ook een mogelijkheid om zo'n macro's stop te zetten? of te onderbreken?

grtz

Met CTRL-BREAK wordt de code onderbroken.

Met vriendelijke groet,


Roncancio

 

[Chris Cools]

thanx!