gegevens werkbladen combineren tot 1 lijst

[roeffie]

Hallo

Ik wil een adressenlijst opstellen. Het gaat om verschillende afdelingen die elk hun eigen lijst bijhouden. Nu wil ik deze aparte lijsten combineren tot 1 totaallijst. het is de bedoeling dat als er wijzigingen in de afdelingslijsten zijn, deze automatisch worden meegenomen in de totaallijst.

Dus in het voorbeeld. In het werkblad totaal zouden automatisch de gegevens van de werkbladen "afdeling A" en "afdeling B" moeten komen

Hebben jullie hervoor een oplossing?

Bedankt

RoelofBekijk bijlage voorbeeld 1.xlsxBekijk bijlage voorbeeld 1.xlsx

 

[WHER]

Zie bijlage voor een mogelijke aanpak.
Maak van je lijsten Tabellen (Insert >> Table).

 

[snb]

Of met een macrootje:

Sub M_snb()
    For Each sh In Sheets
        If sh.Name <> "Totaal" Then Sheets("Totaal").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(sh.UsedRange.Rows.Count, sh.UsedRange.Columns.Count) = sh.UsedRange.Offset(1).Value
    Next
End Sub

 

[roeffie]

Beste wher en snb

Bedankt voor de oplossingen.

Heb gekozen voor de tabeloplossing. Lukte me niet om de macro werkend te krijgen, maar dat ligt aan mij (niet zoveel ervaring met macro's)

In elk geval bedankt

Roelof