hente eksterne data og gem dem

Brug en Ontime funktion, til at skrive rækkenummeret, i en celle.
når du så gemmer date

Range("A1").offset(dinCelleMed rækkeNummeret,0) = nyedata

Hej kabbak, tak for dit svar men jeg er altså ret grøn vedr excel, så kan du
forklare lidt mere hvad det reelt er jeg skal gøre og hvor henne ?
:o)

smider lidt flere point til den som kan løse dette ?

1 ark kaldet"NR", i A1 skrives den række der smides data i i øjeblikket.

Public Sub StartTimer()
' starter timeren
    Application.OnTime TimeSerial(19, 0, 0), "SkiftRække"
End Sub

Public Sub StopTimer()
' Stopper timeren
    Application.OnTime TimeSerial(19, 0, 0), "SkiftRække", , False
End Sub

Public Sub SkiftRække()
    Worksheets("NR").Range("A1") = Worksheets("NR").Range("A1") + 1    ' plusser en til cellen, som styrer rækken
    Application.OnTime TimeSerial(19, 0, 0), "SkiftRække"    ' klar til næste dag
End Sub


Public Sub HentData()
' Det er denne linie du skal bruge i din datahentnings makro
    Worksheets("Data").Range("A" & Worksheets("NR").Range("A1")) = nyData
End Sub

hej igen kabbak,
Tak for dit svar - forklaring., jeg har ikke glemt dig men har forsøgt at teste
din kode på mit excel ark og jeg er ikke 100% sikker på at jeg gør det korrekt.
Jeg har taget denne del:
Public Sub StartTimer()
' starter timeren
    Application.OnTime TimeSerial(19, 0, 0), "SkiftRække"
End Sub

Public Sub StopTimer()
' Stopper timeren
    Application.OnTime TimeSerial(19, 0, 0), "SkiftRække", , False
End Sub

Public Sub SkiftRække()
    Worksheets("NR").Range("A1") = Worksheets("NR").Range("A1") + 1    ' plusser en til cellen, som styrer rækken
    Application.OnTime TimeSerial(19, 0, 0), "SkiftRække"    ' klar til næste dag
End Sub
og indsat i et nyt faneblad i min excel fil via Visual basic.

Så har jeg oprettet en makro med denne del = den melder fejl hos mig,
Public Sub HentData()
' Det er denne linie du skal bruge i din datahentnings makro
    Worksheets("Data").Range("A" & Worksheets("NR").Range("A1")) = nyData
End Sub

Og den er jeg nemlig i tvivl om hvor jeg skal placere henne ?

Kan du lede mig på sporet ?

Den sidste er et eksempel på, hvordan du får din oprindelige makro, til at skrive i den rigtige række.
Jeg skal se din oprindelige makro, den der henter data, for at lave det korrekt.

Alle makroerne skal være i et Modul, ikke i ark eller ThisWorkbook modulet

Her er den makro jeg har lavet som henter data fra nettet og samler et total tal i en celle

Application.ScreenUpdating = False
    Sheets("Lukkekursen").Select
    ActiveWindow.SmallScroll Down:=-18
    Range("B2").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    Range("B6").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    Range("B11").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    Range("B16").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    Range("B21").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    Range("B26").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    ActiveWindow.SmallScroll Down:=9
    Range("B31").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    Range("B36").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    Application.ScreenUpdating = True
    ActiveWindow.SmallScroll Down:=9
    Sheets("Dag").Select

Så vidt jeg kan se, så har du 8 pivot tabeller, der er i 8 forskellige rækker, er det rigtig ??

hmmmmm.... det ved jeg faktisk ikke om jeg har :o)
Jeg har oprettet et excel ark med et faneblad hvor jeg har lavet 8
rækker hvor jeg henter data fra nettet i hver række
feks B6 + B11 + B16 osv....
Ja du må undskylde at jeg ikke er 100% stærk i excel og derfor spør lidt "dumt"

Jeg er ikke helt med, arket "Lukkekursen", er den der den skal flytte sig, eller er det i arket "Dag".

Hvis det er i arket "Dag", kan jeg ikke se, hvor du gemmer i en celle. ?

Jeg tager data fra "lukkekurs" fanebladet og så står jeg på fanebladet "dag"
hvor jeg bare har indsat sådan en her"=SUM(Lukkekursen!B6)" og i næste række
=SUM(Lukkekursen!B11) osv....
og summen af de tal bliver lagt sammen i en total sum på fanebladet "dag" og det er det tal som jeg ønsker at overføre hverdag til en ny celle i fanebladet "dag",
feks cellen mandag,tirsdag,onsdag osv...

kan du sende en eksempel mappe, hvor du har din struktur i.
kabbak snabela tiscali dot dk

så har jeg sendt en mail til dig :o)

kikker på den i aften

her er koden som jeg kom frem til.

Dim OP As Date
Global Const SK As Date = #7:00:00 PM# ' tiden for rækkeskift, er sat til kl 19:00:00 dansk tid
Global Const OPMIN As Date = #12:15:00 AM# ' kursopdatering, er sat til hvert kvarter

Private Sub OpdaterKurser()
    ActiveWorkbook.RefreshAll    ' opdaterer alle kurser fra nettet
    Worksheets("Lukkekursen").Range("G2") = Now()
    OP = Now() + OPMIN    ' sætter ny tid for opdatering af kurser
    Worksheets("Dag").Range("F3") = OP
    Application.OnTime OP, "OpdaterKurser"
End Sub

Public Sub StartTimer()
' starter timeren
Worksheets("Dag").Range("G5") = "Timer er STARTET"
Worksheets("Dag").Range("G5").Interior.ColorIndex = 50
  Worksheets("Lukkekursen").Range("J2") = SK
    Application.OnTime SK, "SkiftRække"    ' sætter tid for opdatering af arket dag
    OP = Now() + OPMIN    ' sætter starttid for opdatering af kurser
    Worksheets("Dag").Range("F3") = OP
    Application.OnTime OP, "OpdaterKurser"
End Sub

Public Sub StopTimer()
' Stopper timeren
On Error Resume Next
Worksheets("Dag").Range("G5") = "Timer er STOPPET"
Worksheets("Dag").Range("G5").Interior.ColorIndex = 3
    Application.OnTime SK, "SkiftRække", , False
    Application.OnTime OP, "OpdaterKurser", , False
End Sub

Private Sub SkiftRække()
    If Weekday(Now()) <> vbSaturday And Weekday(Now()) <> vbSunday Then
        If Weekday(Now()) = vbMonday Then
          Worksheets("Lukkekursen").Range("I2") = Worksheets("Lukkekursen").Range("I2") + 2
            ' plusser to til cellen, som styrer rækken, fordi der var weekend
        Else
            Worksheets("Lukkekursen").Range("I2") = Worksheets("Lukkekursen").Range("I2") + 1
            ' plusser en til cellen, som styrer rækken
        End If
      GemData
    End If
    Application.OnTime SK, "SkiftRække"    ' sætter tid for  næste dag
End Sub

Private Sub GemData()
'Worksheets("Lukkekursen").Range("I2"), bruges til at styre rækken
    Worksheets("Dag").Range("B" & Worksheets("Lukkekursen").Range("I2")) = Worksheets("Dag").Range("E14")
    ThisWorkbook.Save    ' gemmer mappen
End Sub

>kabbak< PERFEKT ARBEJDE !

Det var lige præcis det som jeg skulle bruge og god forklaring du har skrevet ud for hver felt - Tak for hjælpen :o)

Smid lige et svar så du kan få dine velfortjente point

Fandt lige en lille ting, som jeg ville spørge om da jeg sad og prøvede at ændre dato + klokkeslet
på min pc,
der står feks idag fredag at kl 19,00 skal den skrive i række B162
"Skriver i række 162-klokken: 19:00" og det er som det skal være
men
så skriver den at den vil skrive i række B163 næste gang men b163 er jo den række
hvor jeg har uge nummeret stående, den skulle vel helst skrive i række 164 næste gang = mandag efter en weekend eller er det mig som gør noget forkert ?
men tak endnu engang
:o)

men nu kan jeg se at den rent faktisk SKRIVER i række 164 som den skal, så det er altså bare teksten der står forkert, dvs at den vil skrive i række 163 iso 164
fra fredag efter kl 19,00 frem til mandag efter kl 19,00

det er korrekt set, koden tager højde for weekend, men det gør teksten i cellen ikke.

Okay - men som sagt endnu engang TAK for din hjælp :o)