Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Samenvoegen gegevens meerdere tabbladen

3,486 views
Skip to first unread message

Ewout

unread,
Jul 14, 2003, 5:18:18 AM7/14/03
to
Hallo,
Ik heb een bestand met enige tientallen tabbladen. Op
ieder tabblad staat eenzelfde tabel, steeds met
soortgelijke gegevens (aktiviteiten medewerkers). Dezelfde
medewerker komt terug op meerdere tabbladen. Nu wil ik op
een apart tabblad alle rijen verzamelen waarbij eenzelfde
persoon bij betrokken is geweest. Daarvoor moet natuurlijk
wel het hele bestand worden doorzocht. Is dit mogelijk
(met VBA) en wie kan mij hierbij dan op weg helpen?

Alvast bedankt voor de hulp!

Ewout Toet

Vincent Schoutsen

unread,
Jul 14, 2003, 5:27:00 AM7/14/03
to
Kan ook zonder VBA als volgt:
Breng de inhoud van alle tabbladen in 1 tabblad
Maak een database van de totaallijst
Richt een criteriumbereik en een ophaalbereik in, en haal alle unieke
records op.

Kan ook met menu> Data>filter>uitgebreidfilter

vincent


"Ewout" <ewout...@minvrom.nl> schreef in bericht
news:06ee01c349e8$dcf4fff0$a101...@phx.gbl...

Ewout

unread,
Jul 15, 2003, 4:34:06 AM7/15/03
to
Bedankt voor de reactie, maar deze oplossing is voor mij
niet dé oplossing. In dit geval moet ik nog steeds
handmatig alle inhoud van alle tabbladen (± 80) naar 1
apart tabblad overbrengen. En dat moet herhaald worden als
informatie op één van de tabbladen wijzigt. Hier zou ik
nou juist een macro voor willen hebben. Wie kan mij helpen?

>-----Oorspronkelijk bericht-----

>.
>

Luc.Heyndrickx

unread,
Jul 15, 2003, 6:42:54 AM7/15/03
to
Ewout,

Volgende macro maakt een nieuw werkblad (vooraan in de werkmap), en plaats
daar alle inhoud van alle andere werkbladen.
Als je deze macro natuurlijk een tweede maal runt, moet je wel eerst dit
eerste werkblad terug verwijderen.

*******
Sub TotaleData()

Dim i As Integer
Dim mySheet As Worksheet

Set mySheet = Worksheets.Add(Before:=Worksheets(1))
For i = 2 To Worksheets.Count
Sheets(i).Range("A1").CurrentRegion.Copy _
mySheet.Cells(mySheet.Range("A65536").End(xlUp).Row + 1, 1)
Next

End Sub

***********

Luc


"Ewout" <ewout...@minvrom.nl> schreef in bericht

news:090501c34aab$da64fba0$a301...@phx.gbl...

E. Toet

unread,
Jul 22, 2003, 3:42:04 AM7/22/03
to
Ietwat laat, maar bedankt voor het meedenken. E.e.a. werkt.


Ewout


>-----Oorspronkelijk bericht-----

>.
>

0 new messages