Groot databestand specifieke info van meerdere tabbladen kopiëren naar nieuw bestand

[Ingeonderzoek1]

Hallo,

Als onderzoeker heb ik een enorm databestand gemaakt. Ik heb de resultaten van een test geordend per experiment inclusief de basale uitwerking. Daardoor heb ik nu meer dan honderd tabbladen van >21900 regels per stuk.
Ten eerste een enorm werk om te maken, alles is geknipt en geplakt en deel resultaten heb ik al vaker weer overgezet naar een nieuw bestand. Dat kost me steeds een halve dag. Dat moet anders kunnen!

Ik wilde een bestand toevoegen, maar er mag maar 100 kb geüpload worden? Dat komt neer op 1 tabblad, compleet gestript van extra data en ook het aantal regels geminimaliseerd. Concreet verzoek: meerdere tabbladen allemaal verschillende namen in tabblad. Daarbinnen moeten 2 kolommen steeds van een verschillende lengte verplaatst worden naar een nieuw tabblad. De kolommen beginnen op I20 en L20. Verder moet de inhoud van A1 en A20 meegenomen worden, liefst geplakt boven een van de 2 kolommen.

Hopelijk kunnen jullie mij helpen! Bekijk bijlage Voorbeeld file_modules.xls

 

[Cobbe]

http://www.mijnbestand.nl/
Hier kan je een groot bestand neerzetten als je denkt dat je zo je probleem beter kan visualiseren.

 

[Cobbe]

Intussen heb ik voor u een kleine code geschreven die dat voor u zou moeten doen.

Sub Macro1()
For Each ws In ThisWorkbook.Sheets
  If ws.Name <> "Data" Then
   With Sheets("Data")
     Kolom = .UsedRange.Columns.Count + 1
      ws.Range("A1:A20").Copy .Cells(2, Kolom)
      ws.Range("I20:I" & ws.Range("I" & ws.Rows.Count).End(xlUp).Row).Copy .Cells(2, Kolom + 1)
      ws.Range("J20:J" & ws.Range("J" & ws.Rows.Count).End(xlUp).Row).Copy .Cells(2, Kolom + 2)
   End With
  End If
Next
End Sub

Je moet wel een tabblad 'Data' benoemen. De layout zal wel niet kloppen, maar als het principe klopt is de rest een peulschil.