Samle udvalgte data fra flere ark i ét

Med VBA.

Har du erfaring med VBA?

Jeps, jeg kan bare ikke lige gennemskue den her...

her er en demo, håber du kan tilpasse den.

Sub HentArk()
Dim AD As Variant, A As Integer, FRes(8) As Variant, FS As Range
Dim strFilNavn(), Nr As Integer
Application.CutCopyMode = False
Application.ScreenUpdating = False
mypath = "C:\MitExcelBibliotek\" ' ret til din sti
If Right(mypath, 1) <> "\" Then mypath = mypath & "\"
Nr = 1
ReDim Preserve strFilNavn(Nr)
strFilNavn(Nr) = Dir(mypath & "*.xls")  ' Hent den første filnavn i biblioteket.
Do While strFilNavn(Nr) <> ""  ' Start løkken
  If strFilNavn(Nr) <> "." And strFilNavn(Nr) <> ".." Then
  Nr = Nr + 1
  ReDim Preserve strFilNavn(Nr)
End If
strFilNavn(Nr) = Dir    ' Hent næste filnavn.
Loop
'************** alle filer er læst ind i variablen strFilNavn(Nr) **********

For I = 1 To Nr - 1
  AD = ThisWorkbook.Sheets("Ark2").Range("A65536").End(xlUp).Row + 1
  ' ovenstående er siden og rækken der skal indsættes på
  FilogSti = mypath & strFilNavn(I)
 
    AF = ThisWorkbook.Sheets("Ark1").Range("A65536").End(xlUp).Row + 1
    For U = 2 To AF - 1 ' tjekker om de er inlæst før
    If strFilNavn(I) = ThisWorkbook.Sheets("Ark1").Range("A" & U) Then
    MsgBox ActiveWorkbook.Name & " er indlæst 1 gang"
    GoTo Videre
  End If
  Next
 
      ' Åbner filen
    Workbooks.OpenText Filename:=FilogSti
    ThisWorkbook.Sheets("Ark1").Cells(AF, 1) = strFilNavn(I)
      ' sætter filnavnet ind på ark1 i ThisWorkbook

    Sheets("Ark1").Select ' det ark der skal hentes data fra på det åbnede ark
    Range("A1:I32").Copy ' det områder der skal hentes data fra
   
    ThisWorkbook.Activate
    Sheets("Ark2").Activate
    Range("A" & AD).Select ' Arket og cellen det sættes ind på
    ActiveSheet.Paste
   
    'lukker filen
  Windows(strFilNavn(I)).Activate
  Application.DisplayAlerts = False
  ActiveWorkbook.Saved = True
  ActiveWindow.Close
  Application.DisplayAlerts = True
Application.CutCopyMode = False
Videre:
Next
Application.ScreenUpdating = True
End Sub

Den kigger jeg lige på ;o)

hvordan går det med kikket ?

Fint - kan du klare et svar ;o)

et svar ;-))