Opret nyt dataområde med filtrerede data

Står der dato på hver af de 96 linie?

Data dækker pt. perioden fra 1. januar 2006 og frem, med en ugentlig registrering bestående af 96 linier. Hver linie indeholder dato i kolonne A.

Prøv denne makro, skal startes fra det ark hvor du ønskes data indsat, På det ark skal fra dato stå i A1 og til dato i B1

Sub hent()

    startdato = ActiveSheet.Range("A1")
    slutdato = ActiveSheet.Range("B1")
    datocol = 1
    Set ark = Worksheets("sheet1")      ' hent fra ark
    t = 2
    'ark.Select
    mylastrow = ark.Cells(ark.Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    For rk = 1 To mylastrow
        If Cells(rk, datocol).Value >= startdato And Cells(rk, datocol) <= slutdato Then
            ActiveSheet.Range(t & ":" & t).EntireRow.Value = ark.Range(rk & ":" & rk).EntireRow.Value
            t = t + 1
        End If
    Next rk

End Sub

Tak for tilsendte løsning. Den er lige det som jeg skulle bruge.

Hermed et svar, velbekomme :o) (markere mit navn i nedeste venstre hjørne for at acceptere svar)

Husk at dine bemærkninger, kun skal lægges ind som kommentar.