Iedere minuut gegevens opslaan

[gerrit123456789]

Hallo,

Ik zit met een probleem, ik wil graag iedere minuut de waarde uit het tabblad Turbo pagina onder de kolom "netto winst"opslaan in tabblad 2 met in de eerste kolom de tijd en in de tweede kolom de waarde. Dit telkens netjes onder elkaar.

Wie kan ij daar bij helpen?

Bij voorbaat dank.

Gerrit

Bekijk bijlage TURBO'S.xlsx

 

[SjonR]

Zoiets?

Sub netto()
R = Blad3.Range("A" & Rows.Count).End(xlUp).Row + 1

Blad3.Cells(R, 1).Value = Blad1.Cells(3, 11).Value
Blad3.Cells(R, 2).Value = Now

Application.OnTime Now + TimeValue("00:01:00"), "netto"
End Sub

En waarschijnlijk is het handig als je deze ook aanroept bij het openen van het bestand, dus moet je deze ook in het Workbook_Open event zetten.

 

[gerrit123456789]

Misschien een domme vraag, maar hoe doe je dat dan

Gerrit

 

[SjonR]

Hoe doe je wat?

 

[gerrit123456789]

En waarschijnlijk is het handig als je deze ook aanroept bij het openen van het bestand, dus moet je deze ook in het Workbook_Open event zetten.

 

[SjonR]

oh, dat staat in het bestand. Ben je bekend met VBA? zo nee, open de VB-editor met ALT F11 en kijk bij Thisworkbook.

 

[gerrit123456789]

Is gelukt.

Heel hartelijk bedankt.

Gerrit.

 

[SjonR]

Mocht je heel veel winst maken, dan kan ik je ook helpen met het uitgeven !!!!! :d

Succes ermee!