Gegevens opslaan in blad 2

[gerrit123456789]

Ik zit te stoeien om per minuut de koers in cel I1 in kolom C van blad 2 te krijgen.
Dit wil maar niet lukken
De koers van blad 1 C1 wordt wel netjes iedere minuut in blad 2 in kolom A geplaatst en telkens onder elkaar.

Wie kan mij hiermee verder helpen.

Bestand is bijgesloten.

Groet,

GerritBekijk bijlage Testbestand2.xlsm

 

[edmoor]

Even voor de duidelijkheid:
Je wil de gegevens uit Blad1 cel I1 geplaatst hebben in de eerstvolgende lege cel op Blad2 kolom C? Dan gebruik je nu niet de juiste cellen.
Probeer deze eens:

Sub Gerrit()
    With Sheets("Blad2")
        r = .Range("C" & Rows.Count).End(xlUp).Offset(1).Row
        If .Cells(1, 3).Value = "" Then r = 1
        .Cells(r, 3).Value = Sheets("Blad1").Range("I1").Value
        If r = 510 Then .Cells(1, 3).Delete xlUp
    End With
    Application.OnTime Now + TimeValue("00:01:00"), "Gerrit"
End Sub

 

[gerrit123456789]

Deze werkt, maar dan werkt de andere macro niet meer die de koersen van C1 in kolom A zet van blad 2.
Kunnen deze 2 macro's niet gecombineerd worden, zodat ik 1 macro heb voor beide koersen.

Groet,

Gerrit

 

[edmoor]

Deze doet niets met een andere macro. Over welke andere macro heb je het? Of wil je twee koersen gekopieerd hebben?
Hij lijkt me zo duidelijk genoeg dat je dat makkelijk kan aanvullen:

Sub Gerrit()
    With Sheets("Blad2")
        r = .Range("A" & Rows.Count).End(xlUp).Offset(1).Row
        If .Cells(1, 1).Value = "" Then r = 1
        .Cells(r, 1).Value = Sheets("Blad1").Range("C1").Value
        If r = 510 Then .Cells(1, 1).Delete xlUp
    
        r = .Range("C" & Rows.Count).End(xlUp).Offset(1).Row
        If .Cells(1, 3).Value = "" Then r = 1
        .Cells(r, 3).Value = Sheets("Blad1").Range("I1").Value
        If r = 510 Then .Cells(1, 3).Delete xlUp
    End With
    Application.OnTime Now + TimeValue("00:01:00"), "Gerrit"
End Sub

 

[gerrit123456789]

Ik wil 2 koersen gekopieerd hebben.
Die uit cel C1 in kolom a van blad 2 en die uit cel I1 naar kolom c van blad 2

Gerrit

 

[edmoor]

Zie #4

 

[gerrit123456789]

Het werkt!!

Bedankt voor de snelle hulp.

Ik kan nu weer verder bouwen.

Groet,

Gerrit