gegevens verzamelen van diverse werkbladen in excel

Status
Niet open voor verdere reacties.
S

Skip66

Gebruiker
Lid geworden
15 jan 2019
Berichten
12
Bij een personeelsdownload krijg ik de personeelsgegevens verspreid over meerdere tabbladen.
De gegevens staan allemaal op dezelfde plaats in iedere tabblad.
Kolom h, regel 8 t/m 36.

Hoe krijg ik alle gegevens in tabblad 1 als een gegevensblad.

Zie bijlagen voor voorbeeld

mvg
 

Bijlagen

  • voorbeeld personeelsgegevens.xlsx
    10,4 KB · Weergaven: 32
In je bestand ontbreekt een voorbeeld van wat jij bedoelt met 'als een gegevensblad'.

Ik vermoed dat de 'download' geen Excelbestand is maar een of ander csv/txt bestand ?
 
Nieuwe bijlagen toegevoegd

Het bestand is een csv download, maar dit zet ik over naar excel.

nieuwe bijlage toegevoegd met de bedoeling van gegevensblad.

mvg
 

Bijlagen

  • voorbeeld personeelsgegevens (1).xlsx
    10,9 KB · Weergaven: 51
Het is veel handiger een csv bestand in VBA aan te passen.

Plaats svp een voorbeeld csv-bestand.
 
Obv van jouw voorbeeldbestand kan het met een vrij eenvoudige macro.
Code: 
Sub VenA()
  With Sheets("Blad1")
    For Each sh In Sheets
      If sh.Name <> .Name Then .Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 29) = Application.Transpose(sh.Range("H8:H36").Value)
    Next sh
  End With
End Sub
 
Het werkt

Sorry voor de late reactie.

Maar de Marco werkt perfect.

Bedankt.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan