samle data fra flere ark

En lækkerbidsken for Access. Hvis det er en engangsfornøjelse gør jeg det gerne for dig. Jeg laver selvfølgelig også programmet for dig, så du kan gøre det igen.

Jeg kan se, at du har oprettet det samme spørgsmål i Dansk Regneark Forum (og det er du da i din gode ret til). Men det er en dårlig ide, at have samme spørgsmål oprettet flere forskellige steder.
Og det er det, fordi at hvis nu en person laver en færdig løsning på det ene Forum, og så at der måske sidder en person og forsøger at lave en løsning på det andet Forum, uden at vide at der er fundet en løsning, så er det lidt skønne spildte kræfter for denne person.

Godmorgen Ebea tænkte jeg ikke lige over
Goddag

KW

Har driblet lidt kode sammen:

[div]Sub Opsamling()
    Dim wksHent As Range
    Dim wksSaml As Worksheet
    Dim sidsterk As Long
    Dim kopiomr  As Range
    Dim kolonner As Variant
    kolonner = Split(Names("HentKolonner").RefersToRange.Value2, ":")
    Set wksSaml = Worksheets(Names("SamlearkNavn").RefersToRange.Value2)
    wksSaml.Cells.ClearContents
    For Each wksHent In Names("OpsamlingFra").RefersToRange.Cells
        sidsterk = Worksheets(wksHent.Value2).Range("A" & Worksheets(wksHent.Value2).Rows.Count).End(xlUp).Row
        'kopi dataomkr
        Set kopiomr = Worksheets(wksHent.Value2).Range(kolonner(0) & "2:" & kolonner(1) & sidsterk)
        wksSaml.Range("A" & wksSaml.Rows.Count).End(xlUp).Offset(1, 0).Resize(kopiomr.Rows.Count, kopiomr.Columns.Count).Value2 = kopiomr.Value2
        'kopi overskrift
        wksSaml.Range("A1").EntireRow.Value2 = Worksheets(wksHent.Value2).Range("A1").EntireRow.Value2
    Next
End Sub[div]

Koden er baseret på 3 navngivne områder:
HentKolonner - feks. A:K
SamlearkNavn: navnet på den arkfane data skal leveres til
OpsamlingFra: en liste over de arkfaner der skal hentes fra

Filen kan findes her: https://www.it-fjernundervisning.dk/info/eksperten-svar

Der er kodet med følgende antagelser:
1) Sidste datarække kan findes ud fra data i kolonne A
2) Der ikke er sat filter på data arkfanerne

1000 tak