• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Koersdata opslaan

Status
Niet open voor verdere reacties.

gerrit123456789

Gebruiker
Lid geworden
15 dec 2013
Berichten
252
Hallo,

Ik zit met een probleem.

Ik heb een bestand waarin iedere minuut de koers in cel C1 ververst wordt.
Nu wil ik ook dat die koers iedere minuut in blad 2 gezet wordt met daarachter de tijd.
Dit moet dan een tabel worden van 510 koersen. Deze wil ik dan gebruiken voor een grafiek.
Dit zal wel met een macro moeten.

Wie kan me hier bij helpen?

Groet,

Gerrit

Bekijk bijlage Testbestand.xlsx
 
D.m.v. wat wordt C1 ververst? Door een macro of handmatig?
 
Het wordt ververst met een webquery.
Dat gebeurt iedere minuut. Nu wil ik die gegevens in een ander werkblad onder elkaar opslaan zodat ik een grafiek kan maken.
 
Plaats in een module
Code:
Sub Spaarie()
    k = Sheets(1).Range("C1").Value
    With Sheets(2)
        r = .Range("A" & Rows.Count).End(xlUp).Offset(1).Row
        If .Cells(1, 1).Value = "" Then r = 1
        .Cells(r, 1).Value = k
        If r = 510 Then .Cells(1, 1).Delete xlUp
    End With
    Application.OnTime Now + TimeValue("00:01:00"), "Spaarie"
End Sub
en achter 'ThisWorkbook'
Code:
Private Sub Workbook_Open()
    Application.OnTime Now + TimeValue("00:01:00"), "Spaarie"
End Sub

Wanneer je het bestand opent wordt er om de minuut de waarde van C1 weggeschreven tot A510. Mocht A510 gevuld zijn verwijdert de code telkens de oudste waarde wanneer er een nieuwe waarde wordt geplaatst.
Hier kom je al een eind mee vermoed ik.
 
Laatst bewerkt:
Misschien heel dom, maar ik gebruik Excel in het Nederlands. Deze tekst is in het Engels.

Kun je dit misschien in mijn bijgeleverde bestand zetten en hem dan weer uploaden.

Bij voorbaat dank,

Gerrit
 
Macro's zijn in het Engels, ook in de NL-versie!

Druk op ALT+F11 en volg de instructies van Spaarie.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan